Import Upstream version 20180207
[hcoop/debian/mlton.git] / runtime / basis / Posix / ProcEnv / Uname.c
1 #include "platform.h"
2
3 static struct utsname Posix_ProcEnv_Uname_utsname;
4
5 C_String_t Posix_ProcEnv_Uname_getSysName (void) {
6 return (C_String_t)Posix_ProcEnv_Uname_utsname.sysname;
7 }
8
9 C_String_t Posix_ProcEnv_Uname_getNodeName (void) {
10 return (C_String_t)Posix_ProcEnv_Uname_utsname.nodename;
11 }
12
13 C_String_t Posix_ProcEnv_Uname_getRelease (void) {
14 return (C_String_t)Posix_ProcEnv_Uname_utsname.release;
15 }
16
17 C_String_t Posix_ProcEnv_Uname_getVersion (void) {
18 return (C_String_t)Posix_ProcEnv_Uname_utsname.version;
19 }
20
21 C_String_t Posix_ProcEnv_Uname_getMachine (void) {
22 return (C_String_t)Posix_ProcEnv_Uname_utsname.machine;
23 }
24
25 C_Errno_t(C_Int_t) Posix_ProcEnv_uname (void) {
26 return uname (&Posix_ProcEnv_Uname_utsname);
27 }