Re: How to interface in ADA with Microsoft joystick?

[tolkamp <f.tolkamp@gmail.com>]

On 12 okt, 09:25, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
wrote:
> On Mon, 11 Oct 2010 13:24:33 -0700 (PDT), tolkamp wrote:
> > Now the compilation of my project is error free.
> > I have tried to build an executable of my project, but again an error:
>
> > gnatmake -d -PC:\\GNAT\\bin\\joystick.gpr joystick_main.adb
> > gnatbind -I- -x C:\GNAT\joystick_main.ali
> > gnatlink C:\GNAT\joystick_main.ali -o C:\GNAT\joystick_main.exe
> > c:/gnat/2009/bin/../libexec/gcc/i686-pc-mingw32/4.3.4/ld.exe: cannot
> > find -lwin32ada
> > collect2: ld returned 1 exit status
> > gnatlink: error when calling C:\GNAT\2009\bin\gcc.exe
> > gnatmake: *** link failed.
>
> > Here the contents of the project file (joystick.gpr):
>
> > project Joystick is
> >    for Source_Dirs use (".", "..\2009\include\win32ada");
> >    for Object_Dir use "..\";
> >    for Main use ("joystick_main.adb");
> >    for Library_Dir use "..\2009\lib\win32ada";
> > end Joystick;
>
> You must use 'with "win32ada.gpr";' in your project:
>
> with "win32ada.gpr";
> project Joystick is
>    for Source_Dirs use (".");
>    for Main use ("joystick_main.adb");
>    package Linker is
>       for Default_Switches ("ada") use ("-mwindows");
>    end Linker;
> end Joystick;
>
> [ And you should never use absolute paths and just any paths to any
> external directories. ]
>
> --
> Regards,
> Dmitry A. Kazakovhttp://www.dmitry-kazakov.de- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -

I have changed the project file joystick.gpr with your solution.
Building the executable gives the following result:

gnatmake -d -PC:\\GNAT\\bin\\joystick.gpr joystick_main.adb
gnatbind -I- -x C:\GNAT\bin\joystick_main.ali
error: "win32-mmsystem.adb" must be recompiled ("win32-mmsystem.ads"
has been modified)
gnatmake: *** bind failed.

Recomplilation of the package win32-mmsystem.adb results in:

gnatmake -ws -c -u -PC:\\GNAT\\bin\\joystick.gpr win32-mmsystem.adb
gnatmake: objects up to date.

Building again results in the same  error (***bind failed).