regression/posix-procenv.sml

   1  fun downto n =
   2     if n = 0
   3        then 0
   4     else downto (n - 1)
   5
   6 val truee = 1 = downto 0
   7
   8 open Posix.ProcEnv
   9
  10 val egid = getegid ()
  11 val env = getenv "HOME"
  12 val euid = geteuid ()
  13 val gid = getgid ()
  14 val groups = getgroups ()
  15 val login = getlogin () handle _ => "<login>"
  16 val pgrp = getpgrp ()
  17 val pid = getpid ()
  18 val ppid = getppid ()
  19 val uid = getuid ()
  20
  21 val () = setgid gid
  22 val () = setpgid {pgid = SOME pid, pid = SOME pid}
  23 val () = ignore (setsid ()) handle _ => ()
  24 val () = setuid uid