Skip to content
Snippets Groups Projects
Commit 56dac608 authored by Raymond Toy's avatar Raymond Toy
Browse files

unix-uname needs struct utsname.

parent dd85f37a
No related branches found
No related tags found
No related merge requests found
......@@ -2423,6 +2423,14 @@
) )
)
(def-alien-type nil
(struct utsname
(sysname (array char #+svr4 257 #+bsd 256))
(nodename (array char #+svr4 257 #+bsd 256))
(release (array char #+svr4 257 #+bsd 256))
(version (array char #+svr4 257 #+bsd 256))
(machine (array char #+svr4 257 #+bsd 256))))
(defun unix-uname ()
(with-alien ((names (struct utsname)))
(syscall* (#-(or freebsd (and x86 solaris)) "uname"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment