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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,47957cb8c33729e5
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!fu-berlin.de!uni-berlin.de!not-for-mail
From: Nick Roberts <nick.roberts@acm.org>
Newsgroups: comp.lang.ada
Subject: Re: Thick Ada bindings to C Win32
Date: Fri, 12 Nov 2004 12:09:11 +0000
Message-ID: <2vjnfbF2lioiaU1@uni-berlin.de>
References: <sa4y8haifwq.fsf@snoopy.apana.org.au>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: news.uni-berlin.de uuZP8ItnQxqkhIO5Lf26LAPPcO9VvS1qbGrh+qA04XIVuiv54=
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
 rv:1.7.2) Gecko/20040803
X-Accept-Language: en-us, en
In-Reply-To: <sa4y8haifwq.fsf@snoopy.apana.org.au>
Xref: g2news1.google.com comp.lang.ada:6169
Date: 2004-11-12T12:09:11+00:00
List-Id: <comp.lang.ada>

Try:


   function Addr (S : BYTE_Array) return LPCVOID is

      function To_LPCVOID is new
        Ada.Unchecked_Conversion (System.Address, LPCVOID);

   begin
      return To_LPCVOID( S(S'First)'Address );
   end;

   pragma Inline(Addr);


   procedure Put(Handle : Handle_Type; Item : in Byte_Array) is

      Successful: Win32.BOOL;
   begin

      Successful :=
         Win32.Winbase.WriteFile
         ( ...
          lpBuffer              => Addr(Item),  -- Win32.Lpcvoid
          nNumberOfBytesToWrite => Item'Length, -- Win32.Dword  => 1 bytes
          ... );

      if not Successful then raise ???_Error; end if;
   end Put;


I haven't tested this. It might be GNAT-specific. Must dash!

-- 
Nick Roberts