1. Пользуйтесь тегами кода. - [code] ... [/code] 2. Точно указывайте язык, название и версию компилятора (интерпретатора). 3. Название темы должно быть информативным. В описании темы указываем язык!!!
Я поставил пакет win32ada, он создал папку include\win32ada Если написать первой строкой test.gpr with "win32ada", то среда ругается при открытии пакета:
[2011-02-08 16:25:57] C:\Program Files\ADA\projects\TEST\test.gpr:1:06: unknown project file: "win32ada" [2011-02-08 16:25:57] Error while loading project 'C:\Program Files\ADA\projects\TEST\test.gpr'. Loading the default project.
Ну я это убрал. Добавил в test.gpr строчку
for Source_Dirs use ("..\..\include\win32ada\**");
Пишу в test.adb with win32.winuser (вроде все основные функции, типа окно нарисовать итд, там). Компилирую.
gnatlink "C:\Program Files\ADA\projects\TEST\test.ali" -shared-libgcc -g -g -fprofile-generate -o "C:\Program Files\ADA\projects\TEST\test.exe" c:/program files/ada/bin/../libexec/gcc/i686-pc-mingw32/4.3.6/ld.exe: cannot find -lwin32ada collect2: ld returned 1 exit status gnatlink: error when calling C:\Program Files\ADA\bin\gcc.exe gnatmake: *** link failed.
[2011-02-08 16:28:19] process exited with status 4 (elapsed time: 06.26s)
То есть он какбэ предлагает мне убрать параметр из заголовка функции.
Нет, он предлагает тебе либо убрать параметр из заголовка, либо отключить выдачу предупреждения:
pragma Warnings (Off, "formal parameter ""lParam"" is not referenced"); pragma Warnings (Off, "formal parameter ""wParam"" is not referenced"); procedure Block( hWnd : in out Win32.Windef.HWND; Msg : in out Win32.UINT; wParam : in out Win32.WPARAM; lParam : in out Win32.LPARAM; Result : out Win32.LRESULT; Continue : out boolean) is pragma Warnings (On, "formal parameter ""lParam"" is not referenced"); pragma Warnings (On, "formal parameter ""wParam"" is not referenced"); begin Result := 0; Continue := False; end;
Цитата
"Осторожно, к переменной после присваивания нет обращений". А шо робыть, если эта функция зачем-то возвращает не нужное мне значение, которое надо непременно куда-то записать.
А вот тут есть 2 пути. Либо предупредить компилятор, что это особенность библиотеки (работа с функциями, которые все-таки должны вернуть результат) и на результат не надо обращать внимания, либо работать с определенными вещами не как с функциями, а как с процедурами.
По варианту №1: ты в файле wintestmain.adb внутри функции Graph используешь API-шную функцию SetPixel, из-за чего тебе нужна "лишняя" переменная С типа COLORREF, так? Можно сделать вот так:
function Graph(Func: Parsed_Function) return boolean is
procedure SetPixelProc (hDC : Win32.Windef.HDC; X : Win32.INT; Y : Win32.INT; crColor: Win32.Windef.COLORREF); pragma Import (StdCall, SetPixelProc, "SetPixel");
-- ... Дальше всё как было, но вместо обращения к функции SetPixel -- будет обращение к процедуре SetPixelProc - переменная С уже не нужна.
По варианту №2:
function Graph(Func: Parsed_Function) return boolean is
Всё-таки, какие предупреждения надо поставить, а какие не надо?
Все-таки, я бы оставил все...
Чуть позже закончу перевод очередных обзоров с AdaCore, один из них касается именно работы с предупреждениями, ссылку запощу сюда.
Цитата
А то она принимает Key_Arr, а он задан как тип, производный от того, что идёт в параметрах шаблона
Проблема не в этом. Проблема - в том, что тебе для того, чтобы получить тип Key_Arr, надо инстанцировать другой шаблонный модуль. Это невозможно сделать при описании параметров настройки.