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,CP1252
Path: 
 g2news1.google.com!postnews.google.com!28g2000yqm.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: Tue, 5 Oct 2010 03:19:27 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: <f5f1d30a-a7d5-4acb-8c3c-1a26d8e2a0bb@28g2000yqm.googlegroups.com>
References: 
 <2edbcdab-8ff5-40e6-9ac0-44be6cb93621@m15g2000yqm.googlegroups.com>
 <1ne6iis0we6lt.7ftiqb64g582.dlg@40tude.net>
 <04cf664d-62bd-4e2e-8aaa-cd4654ea327e@26g2000yqv.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>
NNTP-Posting-Host: 62.163.210.190
Mime-Version: 1.0
Content-Type: text/plain; charset=windows-1252
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1286273967 16129 127.0.0.1 (5 Oct 2010 10:19:27
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 5 Oct 2010 10:19:27 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: 28g2000yqm.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:14391
Date: 2010-10-05T03:19:27-07:00
List-Id: <comp.lang.ada>

On 5 okt, 09:30, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
wrote:
> On Mon, 4 Oct 2010 12:46:12 -0700 (PDT), tolkamp wrote:
> > On 4 okt, 21:30, tolkamp <f.tolk...@gmail.com> wrote:
> >> From the sidehttp://libre.adacore.com/libre/download2Ihave
> >> downloaded the file win32ada-gpl-2010.exe.
> >> Is this the correct file?
>
> I guess so, provided, you are using GNAT GPL 2010.
>
> > In addition: the win32 spec and body file is also found in
> > GNAT/bin/source/src/gnat.
>
> Should be .../include/win32ada/
>
> But that depends on the win32ada.gpr file. If you want to know for sure
> where are the specifications, you look into this file. The file must be
> located under .../lib/gnat, because that is the default directory where
> GNAT searches for gpr-files (others are form the ADA_PROJECT_PATH
> environment variable). Now in that file you will see the path to sources,
> e.g.
>
> project Win32Ada is
> =A0 =A0for Languages use ("ada");
> =A0 =A0for Source_Dirs use ("../../include/win32ada");
> =A0 =A0for Library_Dir use "../../lib/win32ada";
> =A0 =A0for Library_Name use "win32ada";
> =A0 =A0for Externally_Built use "true";
> end Win32Ada;
>
> So the source directory is
>
> .../lib/gnat/../../include/win32ada =3D ../include/win32ada
>
> --
> Regards,
> Dmitry A. Kazakovhttp://www.dmitry-kazakov.de


Finally I had success to include the package Win32 in my project.
Compilation of the project gives the following error message for
package win32-winnt.ads:
=93representation item appears too late=94

pragma Convention(C, anonymous1_t);        -- winnt.h:186
pragma Convention(C, LUID_AND_ATTRIBUTES); -- winnt.h:2000
pragma Convention(C, SID_IDENTIFIER_AUTHORITY);

By the way, I use GNAT GPL 2009 (version 4.3.1).