Re: PSTR to Ada String.

["Gerd" <GerdM.O@t-online.de>]

Here an example how it can be done:

  function AddrToPSTR is new Unchecked_Conversion(System.Address,
Win32.PSTR);

  procedure GetHostName (Name : out STRING; Len : out Integer; RC : out
INTEGER) is
    Erg : Win32.INT;
    HostName : STRING (1..255);
  begin
    -- The result (excluding the \0) must fit into "Name"
    Erg := gethostname (AddrToPSTR (HostName'ADDRESS), Name'LENGTH +
1);

    if Erg = SOCKET_ERROR
    then
      RC := INTEGER(WSAGetLastError);
    else
      RC := NO_ERROR;

      Name := (others => ' ');

      -- Should work correct, as "gethostname" should never return more
characters
      -- than "Name" can get.
      for i in HostName'FIRST .. HostName'LAST
      loop
        if HostName (i) = ASCII.NUL
        then
          Len := i - 1;
          return;
        else
          Name (Name'FIRST + i - 1) := HostName (i);
        end if;
      end loop;
    end if;
  end GetHostName;


Jade schrieb:

> Hi
> I am using GNAT's ada bindings and with functions like gethostname, etc
> they choose to have a return value as a WIN32.PSTR.
> However, all my ada functions require either ada standard strings or
> characters.  I was wondering if there is way of converting PSTR to an
> ada string.
> 
> Thanks,
> 
> Jade.