administrativa
[m6w6/ext-psi] / psi.d / uname.psi
index b7aed9652e7e26dbad3f4201465017165166e236..404399cfdf458ccb014d6ea4072d47ac9119dd29 100644 (file)
@@ -1,6 +1,8 @@
+#include <sys/utsname.h>
+
 function psi\uname(array &$u = NULL) : int {
-       let name = calloc(1, psi\SIZEOF_STRUCT_UTSNAME);
-       return to_int(uname);
+       let name = calloc(1, sizeof(struct utsname));
+       return uname(name) as to_int(uname);
        set $u = to_array(*name,
                to_string(sysname),
                to_string(nodename),