Re: gnat and user

[jerry@jvdsys.stuyts.nl]

argavargf <hallo@hallo.org> wrote:

: is there a package for gnat (linux) including a procedure or function which
: returns the user name?

Florist (the POSIX binding) should include this. Meanwhile, you can do
this yourself by calling the appropriate C library function, like:

	--  display the name of the user logged in

	with Ada.Text_IO;          use Ada.Text_IO;
	with Interfaces.C.Strings; use Interfaces.C.Strings;

	procedure Display_Me is

	   function User_Name return String is
	      function Getlogin return chars_ptr;
	      pragma Import (C, Getlogin, "getlogin");
	      Name : chars_ptr;
	   begin
	      Name := Getlogin;
	      if Name = Null_Ptr then
	         return "";
	      else
	         return Value (Name);
	      end if;
	   end User_Name;
   
	begin
	   Put_Line (User_Name);
	end Display_Me;

But check the difference between getlogin and cuserid to make sure you
get the name you actually need.

-- 
-- Jerry van Dijk | Leiden, Holland
-- Team Ada       | jdijk@acm.org
-- see http://stad.dsl.nl/~jvandyk