system_getlogin Function

public function system_getlogin() result(fname)

NAME

system_getlogin(3f) - [M_system:QUERY] get login name
(LICENSE:PD)

SYNOPSIS

function system_getlogin() result (fname)

character(len=:),allocatable :: FNAME

DESCRIPTION

The system_getlogin(3f) function returns a string containing the user
name associated by the login activity with the controlling terminal
of the current process. Otherwise, it returns a null string and sets
errno to indicate the error.

Three names associated with the current process can be determined:

   o system_getpwuid(system_getuid()) returns the name associated
     with the real user ID of the process.
   o system_getpwuid(system_geteuid()) returns the name associated
     with the effective user ID of the process
   o system_getlogin() returns the name associated with the current
     login activity

RETURN VALUE

fname  returns the login name.

EXAMPLE

Sample program:

program demo_system_getlogin
use M_system, only : system_getlogin
implicit none
character(len=:),allocatable :: name
name=system_getlogin()
write(*,'("login[",a,"]")')name
end program demo_system_getlogin

Results:

login[JSU]

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

None

Return Value character(len=:), allocatable


Contents

Source Code

system_getlogin

Source Code

function system_getlogin() result (fname)
character(len=:),allocatable :: fname
   type(c_ptr)               :: username

interface
   function c_getlogin() bind(c,name="getlogin") result(c_username)
      import c_int, c_ptr
      type(c_ptr)           :: c_username
   end function c_getlogin
end interface

   username = c_getlogin()
   if(.not.c_associated(username)) then
      !x! in windows 10 subsystem running Ubunto does not work
      !x!write(*,'(a)')'*system_getlogin* Error getting username. not associated'
      !x!fname=c_null_char
      fname=system_getpwuid(system_geteuid())
   else
      fname=c2f_string(username)
   endif

end function system_getlogin