Read Windows login username in Ada 95

Read Windows login username in Ada 95

[Rego, P.]

Is there a function in Ada 95 which returns me a String containing the logged username in an Windows application? Thanks.

(cross posted on stackoverflow <http://stackoverflow.com/questions/8056410/read-windows-login-username-with-ada-95>)

Re: Read Windows login username in Ada 95

[tmoran]

> Is there a function in Ada 95 which returns me a String containing
> the logged username in an Windows application? Thanks.

 No.  Not all Ada applications run in a Windows environment.

In Windows, you can call function GetEnvironmentVariable
and get the value of the environment variable "USERNAME".

Re: Read Windows login username in Ada 95

[Pascal Obry]

Le 09/11/2011 02:19, Rego, P. a �crit :
> Is there a function in Ada 95 which returns me a String containing
> the logged username in an Windows application? Thanks.

No, for a portable solution you can use:

    POSIX.Process_Identification.Get_Login_Name

Available on Florist (GNU/Linux) and wPOSIX (Windows).

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|    http://www.obry.net  -  http://v2p.fr.eu.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver keys.gnupg.net --recv-key F949BD3B

Re: Read Windows login username in Ada 95

[Rego, P.]

Well, answering myself, we could use

function GetUsername return String is
   function GetEnv (Variable : String) return Interfaces.C.Strings.chars_ptr;
   pragma Import (C, GetEnv, "getenv");

   Command : constant String := "USERNAME";
   Answer_Ptr : constant Interfaces.C.Strings.chars_ptr := GetEnv (Command);
   Answer : constant String := Interfaces.C.Strings.Value (Answer_Ptr);
begin
   return Answer;
end GetUsername;

Not pure Ada, but fits very well.
Thank to all suggestions.

Re: Read Windows login username in Ada 95

[Pascal Obry]

Le 09/11/2011 21:47, Rego, P. a �crit :
> Not pure Ada, but fits very well.

For a pure Ada version why not use Ada.Environment_Variables?

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|    http://www.obry.net  -  http://v2p.fr.eu.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver keys.gnupg.net --recv-key F949BD3B

Re: Read Windows login username in Ada 95

[Jeffrey Carter]

On 11/09/2011 01:47 PM, Rego, P. wrote:
>
> function GetUsername return String is
>     function GetEnv (Variable : String) return Interfaces.C.Strings.chars_ptr;

This no doubt expects a NUL-terminated string. I would use Char_Array for the 
parameter and To_C to convert an Ada string passed to it.

>     pragma Import (C, GetEnv, "getenv");
>
>     Command : constant String := "USERNAME";
>     Answer_Ptr : constant Interfaces.C.Strings.chars_ptr := GetEnv (Command);

You're not giving it a NUL-terminated string.

>     Answer : constant String := Interfaces.C.Strings.Value (Answer_Ptr);
> begin
>     return Answer;

Who is responsible for freeing Answer_Ptr?

> end GetUsername;

As Obry suggested, Ada.Environment_Variables is an all-Ada way to do this.

-- 
Jeff Carter
"Alms for an ex-leper!"
Monty Python's Life of Brian
75

Re: Read Windows login username in Ada 95

[Adam Beneschan]

On Nov 8, 9:05 pm, tmo...@acm.org wrote:
> > Is there a function in Ada 95 which returns me a String containing
> > the logged username in an Windows application? Thanks.
>
>  No.  Not all Ada applications run in a Windows environment.
>
> In Windows, you can call function GetEnvironmentVariable
> and get the value of the environment variable "USERNAME".

Doesn't always work (and neither does using
Ada.Environment_Variables).  I just tried it and found that
GetUserName returns my login name, while Ada.Environment_Variables
says that "USERNAME" doesn't exist.  It may be an unusual setup--I'm
logging into an Windows XP system remotely through the GoodTech telnet
server.  But you may as well use the function that works more
reliably.

This worked for me, but it could use more error checking:

with Text_IO;
procedure Print_User_Name is
    subtype Buffer_Type is String (1 .. 200);
    function GetUserName (lpBuffer : access Buffer_Type;
                          lpnSize  : access Integer) return Integer;
    pragma Import (StdCall, GetUserName, "GetUserNameA");

    Buf : aliased Buffer_Type;
    Size : aliased Integer;
    Result : Integer;
begin
    Size := Buffer_Type'Length;
    Result := GetUserName (Buf'Access, Size'Access);
    Text_IO.Put_Line (Buf (1 .. Size - 1));
end Print_User_Name;

StdCall is how we import Windows API functions with ICC Ada.  Don't
know how GNAT does it--probably the same.  Result should be checked
for errors, but I didn't bother.  GetUserName sets Size to the size of
the result including the null terminator, which is why the next line
uses Size - 1.

                                -- Adam

Re: Read Windows login username in Ada 95

[Rego, P.]

> For a pure Ada version why not use Ada.Environment_Variables?
The problem is that Ada.Environment_Variables is an Ada 2005 package, cannot use it.

Re: Read Windows login username in Ada 95

[Rego, P.]

Thank you Adam.

Re: Read Windows login username in Ada 95

[Rego, P.]

> This no doubt expects a NUL-terminated string. I would use Char_Array for the 
> parameter and To_C to convert an Ada string passed to it.
> 
> >     pragma Import (C, GetEnv, "getenv");
> >
> >     Command : constant String := "USERNAME";
> >     Answer_Ptr : constant Interfaces.C.Strings.chars_ptr := GetEnv (Command);
> 
> You're not giving it a NUL-terminated string.

You're right, I'm gonna check the result.

> Who is responsible for freeing Answer_Ptr?

If I included an Free(Answer_Ptr), would it solve this?

> As Obry suggested, Ada.Environment_Variables is an all-Ada way to do this.

That's the Ada 2005 problem I explained above.

Thank you.

Re: Read Windows login username in Ada 95

[tmoran]

> > Who is responsible for freeing Answer_Ptr?
>
> If I included an Free(Answer_Ptr), would it solve this?

I believe the C function getenv returns a pointer to a system area that
has the relevant string, it does not allocate a new buffer and copy the
string to the buffer.  The corresponding Windows functions make a copy
in the user-supplied buffer (presumably as an atomic operation).

Re: Read Windows login username in Ada 95

[Jeffrey Carter]

On 11/09/2011 06:21 PM, Rego, P. wrote:
>
>> Who is responsible for freeing Answer_Ptr?
>
> If I included an Free(Answer_Ptr), would it solve this?

I don't know. My question was whether the pointer returned needs to be freed by 
the caller. Moran's response seems to indicate that it does not.

>> As Obry suggested, Ada.Environment_Variables is an all-Ada way to do this.
>
> That's the Ada 2005 problem I explained above.

Then you'll have to do something like this.

-- 
Jeff Carter
"Well, a gala day is enough for me. I don't think
I can handle any more."
Duck Soup
93

Re: Read Windows login username in Ada 95

[Pascal Obry]

Le 10/11/2011 19:26, Jeffrey Carter a �crit :
> On 11/09/2011 06:21 PM, Rego, P. wrote:
>>
>>> Who is responsible for freeing Answer_Ptr?
>>
>> If I included an Free(Answer_Ptr), would it solve this?
>
> I don't know. My question was whether the pointer returned needs to be
> freed by the caller. Moran's response seems to indicate that it does not.

In this case it does not. I agree with Tom.

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|    http://www.obry.net  -  http://v2p.fr.eu.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver keys.gnupg.net --recv-key F949BD3B

Re: Read Windows login username in Ada 95

[Pascal Obry]

Le 10/11/2011 19:26, Jeffrey Carter a �crit :
> On 11/09/2011 06:21 PM, Rego, P. wrote:
>>
>>> Who is responsible for freeing Answer_Ptr?
>>
>> If I included an Free(Answer_Ptr), would it solve this?
>
> I don't know. My question was whether the pointer returned needs to be
> freed by the caller. Moran's response seems to indicate that it does not.

In this case it does not. I agree with Tom.

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|    http://www.obry.net  -  http://v2p.fr.eu.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver keys.gnupg.net --recv-key F949BD3B

Re: Read Windows login username in Ada 95

[Rego, P.]

Ok. Thank you people for the ideas.