Re: ObjectAda: LPCSTR -> STRING ?

[mcc@tyrolia.cs.princeton.edu (Martin C. Carlisle)]

In article <884055877.1213464581@dejanews.com>,
 <matthew_snyder@hotmail.com> wrote:
>I'm working with Aonix ObjectAda 7.1 and I need to figure
>out a way to convert a LPCSTR to an Ada STRING.  I'd appreciate
>any help.  Thanks.

One must assume your question is a Win32Ada question, not specific
to Object Ada.

LPCSTR is equivalent to C's (const char *).

I'd suggest something along the following:

function To_String(c_pointer : in Win32.LPCSTR) return String is
   length       : natural;
   Ignore_lpstr : Win32.LPSTR;
begin
   length := Natural(Win32.Winbase.lstrlen(c_pointer));
   declare
      result : String(1..length+1);
   begin
      Ignore_lpstr := Win32.Winbase.lstrcpy(result'address,
         c_pointer);
      return result(1..length); -- omit null terminating character
   end;
end To_String;

--Martin
-- 
Martin C. Carlisle, Computer Science, US Air Force Academy
mcc@cs.usafa.af.mil, http://www.usafa.af.mil/dfcs/bios/carlisle.html
DISCLAIMER:  This content in no way reflects the opinions, standard or 
policy of the US Air Force Academy or the United States Government.