Заголовки Windows, Ada Опции

[TarasBer]

Я поставил пакет 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)

Что делать?

[volvo]

То есть он какбэ предлагает мне убрать параметр из заголовка функции.

Нет, он предлагает тебе либо убрать параметр из заголовка, либо отключить выдачу предупреждения:

   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
    
      c : COLORREF; Unreferenced ©; -- Компилятор тут же перестанет паниковать

Всё-таки, какие предупреждения надо поставить, а какие не надо?

Все-таки, я бы оставил все...

Чуть позже закончу перевод очередных обзоров с AdaCore, один из них касается именно работы с предупреждениями, ссылку запощу сюда.

А то она принимает Key_Arr, а он задан как тип, производный от того, что идёт в параметрах шаблона

Проблема не в этом. Проблема - в том, что тебе для того, чтобы получить тип Key_Arr, надо инстанцировать другой шаблонный модуль. Это невозможно сделать при описании параметров настройки.