[hcoop/debian/mlton.git] / regression / posix-procenv.sml

 fun downto n =
    if n = 0
       then 0
    else downto (n - 1)

val truee = 1 = downto 0

open Posix.ProcEnv

val egid = getegid ()
val env = getenv "HOME"
val euid = geteuid ()
val gid = getgid ()
val groups = getgroups ()
val login = getlogin () handle _ => "<login>"
val pgrp = getpgrp ()
val pid = getpid ()
val ppid = getppid ()
val uid = getuid ()

val () = setgid gid
val () = setpgid {pgid = SOME pid, pid = SOME pid}
val () = ignore (setsid ()) handle _ => ()
val () = setuid uid
Commit	Line	Data
7f918cf1 CE	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