deduct variable names from implementation

[m6w6/ext-psi] / psi.d / uname.psi

#include <sys/utsname.h>

function psi\uname(array &$u = NULL) : int {
        let name = calloc(1, psi\SIZEOF_STRUCT_UTSNAME);
        return uname(name) as to_int(uname);
        set $u = to_array(*name,
                to_string(sysname),
                to_string(nodename),
                to_string(release),
                to_string(version), 
                to_string(machine),
                to_string(domainname));
}