home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 1 / WINDOWS95_1.ISO / utils / w32-rex / regina / srccode / src / rexxext.c < prev    next >
Text File  |  1995-06-30  |  1KB  |  46 lines
  1. #ifndef lint
  2. static char *RCSid = "$Id: rexxext.c,v 1.7 1993/02/09 17:30:13 anders Exp anders $";
  3. #endif
  4.  
  5. /*
  6.  *  The Regina Rexx Interpreter
  7.  *  Copyright (C) 1992-1994  Anders Christensen <anders@pvv.unit.no>
  8.  *
  9.  *  This library is free software; you can redistribute it and/or
  10.  *  modify it under the terms of the GNU Library General Public
  11.  *  License as published by the Free Software Foundation; either
  12.  *  version 2 of the License, or (at your option) any later version.
  13.  *
  14.  *  This library is distributed in the hope that it will be useful,
  15.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  16.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17.  *  Library General Public License for more details.
  18.  *
  19.  *  You should have received a copy of the GNU Library General Public
  20.  *  License along with this library; if not, write to the Free
  21.  *  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22.  */
  23.  
  24. /*
  25.     This code modified for Win32 port by Ataman Software, Inc. June 29, 1995.
  26. */
  27.  
  28. #include "rexx.h"
  29. #include <stdio.h>
  30. #if !defined(VMS) && !defined(WIN32)
  31. # include <unistd.h>
  32. # include <pwd.h>
  33. #endif
  34.  
  35. streng *rex_userid( paramboxptr parms ) 
  36. {
  37.    checkparam( parms, 0, 0 ) ;
  38. #ifdef VMS
  39.    return nullstringptr() ;
  40. #elif defined(WIN32)
  41.    return( Str_cre( Win32UserName()) ) ;
  42. #else
  43.    return( Str_cre(getpwuid(getuid())->pw_name)) ;
  44. #endif
  45. }
  46.