From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,4d1b41004c1d217c
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!postnews.google.com!30g2000yqm.googlegroups.com!not-for-mail
From: tolkamp <f.tolkamp@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: How to interface in ADA with Microsoft joystick?
Date: Mon, 11 Oct 2010 13:24:33 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: <c23c5b8e-ef0f-47e4-a3b2-465afff6ac50@30g2000yqm.googlegroups.com>
References: 
 <2edbcdab-8ff5-40e6-9ac0-44be6cb93621@m15g2000yqm.googlegroups.com>
 <tn3y90yxx4hy$.vlschw9qns6r$.dlg@40tude.net>
 <db2d2622-ead5-4b79-8dcb-f88d2a703ac9@e14g2000yqe.googlegroups.com>
 <1cd6pmbvbsnkb$.uwz2048291is.dlg@40tude.net>
 <f29d10d3-2cd5-477f-b8d5-c9c9ab47082e@30g2000yqm.googlegroups.com>
 <3a82f59a-129f-46b1-bd0c-eae124136590@26g2000yqv.googlegroups.com>
 <zxdah2dl84in$.1f64fdn0htb1m$.dlg@40tude.net>
 <f5f1d30a-a7d5-4acb-8c3c-1a26d8e2a0bb@28g2000yqm.googlegroups.com>
 <h1a3x95l249h.15l5y1aqekwdt.dlg@40tude.net>
 <0402e3f7-151c-4a51-bd61-44f4fc32a9d1@l20g2000yqm.googlegroups.com>
 <1thnsl7r3l217.1g1mvpwzjokvr.dlg@40tude.net>
 <bd8d62ef-2403-4eee-937f-2b1cd1bd435a@g8g2000yqa.googlegroups.com>
 <tu0299qu7wzb.kwz3ru9weav$.dlg@40tude.net>
 <f8b20345-151a-4970-acc9-053606a41bfb@x23g2000vba.googlegroups.com>
 <1ntdrf2b9blvx.1qzgqdxqb9jvn$.dlg@40tude.net>
NNTP-Posting-Host: 62.163.210.190
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1286828673 25206 127.0.0.1 (11 Oct 2010 20:24:33
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 11 Oct 2010 20:24:33 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: 30g2000yqm.googlegroups.com; posting-host=62.163.210.190;
 posting-account=nZAcngoAAACcfYM9wDw3w9Z1XR3bObfs
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64;
 Trident/4.0; GTB6.5; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR
 3.0.30729; Media Center PC 6.0; InfoPath.1; .NET4.0C),gzip(gfe)
Xref: g2news1.google.com comp.lang.ada:14485
Date: 2010-10-11T13:24:33-07:00
List-Id: <comp.lang.ada>

On 10 okt, 13:11, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
wrote:
> On Sun, 10 Oct 2010 04:05:51 -0700 (PDT), tolkamp wrote:
> > I have added the joystick package from the above mentioned website to
> > win32.mmsystem.ads
> > After compilation the next error message occurs:
> > operator for type "Interfaces.C.unsigned_long" is not directly
> > visable, use clause would make operation legal.
>
> it tells that you have to add
>
> =A0 use type Interfaces.C.unsigned_long;
>
> --
> Regards,
> Dmitry A. Kazakovhttp://www.dmitry-kazakov.de

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;