13 #include <sys/utsname.h>
18 foreign import ccall unsafe "sys/utsname.h uname"
19 uname :: Ptr Utsname -> IO CInt
23 instance Storable Utsname where
24 sizeOf = const #size struct utsname
26 poke = error "Storable Utsname: peek: unsupported operation"
27 peek = error "Storable Utsname: poke: unsupported operation"
29 sysname :: Ptr Utsname -> IO CString
30 sysname = (#peek struct utsname, sysname)
32 nodename :: Ptr Utsname -> IO CString
33 nodename = (#peek struct utsname, nodename)
35 release :: Ptr Utsname -> IO CString
36 release = (#peek struct utsname, release)
38 version :: Ptr Utsname -> IO CString
39 version = (#peek struct utsname, version)
41 machine :: Ptr Utsname -> IO CString
42 machine = (#peek struct utsname, machine)