Re: How to interface in ADA with Microsoft joystick?

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

On 12 okt, 11:52, tolkamp <f.tolk...@gmail.com> wrote:
> 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).- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -

The win32ada.gpr file has the following contents:

project Win32Ada is
   for Languages use ("ada");
   for Source_Dirs use ("../../include/win32ada");
   type Library_Kind is ("relocatable", "static");
   Library_Type : Library_Kind := external ("LIBRARY_TYPE", "static");
   for Library_Dir use "../win32ada";
   case Library_Type is
      when "static" =>
         for Library_Dir use Project'Library_Dir & "/static";
      when "relocatable" =>
         for Library_Dir use Project'Library_Dir & "/relocatable";
   end case;
   for Library_Kind use Library_Type;
   for Library_Name use "win32ada";
   for Externally_Built use "true";
end Win32Ada;