ocaml/otherlibs/unix/getuid.c

8 lines
115 B
C
Raw Normal View History

#include <mlvalues.h>
#include "unix.h"
value unix_getuid() /* ML */
{
return Val_int(getuid());
}