home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / m2posx02 / showids.mpp < prev    next >
Encoding:
Text File  |  1993-10-23  |  782 b   |  21 lines
  1. MODULE ShowIDs;
  2. (* 22-Jan-92, hk *)
  3. VAL_INTRINSIC
  4.  
  5. FROM proc  IMPORT getpid, getppid, getpgrp, getuid, geteuid, getgid, getegid;
  6. FROM InOut IMPORT WriteInt, WriteString, WriteLn, Read;
  7.  
  8. VAR ch : CHAR;
  9.  
  10. BEGIN
  11.  WriteString(" parent process id: "); WriteInt(INT(getppid()), 0); WriteLn;
  12.  WriteString("    own process id: "); WriteInt(INT(getpid()), 0); WriteLn;
  13.  WriteString("  process group id: "); WriteInt(INT(getpgrp()), 0); WriteLn;
  14.  WriteString("      real user id: "); WriteInt(INT(getuid()), 0); WriteLn;
  15.  WriteString("     real group id: "); WriteInt(INT(getgid()), 0); WriteLn;
  16.  WriteString(" effective user id: "); WriteInt(INT(geteuid()), 0); WriteLn;
  17.  WriteString("effective group id: "); WriteInt(INT(getegid()), 0); WriteLn;
  18.  
  19.  Read(ch);
  20. END ShowIDs.
  21.