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

Remove utsname and unix-uname.

parent c076d550
No related branches found
No related tags found
No related merge requests found
......@@ -1181,28 +1181,6 @@
:dir (string (cast (slot result 'pw-dir) c-call:c-string))
:shell (string (cast (slot result 'pw-shell) c-call:c-string)))))))
(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"
#+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h
#+freebsd "__xuname" #+freebsd int
(* (struct utsname)))
(values (cast (slot names 'sysname) c-string)
(cast (slot names 'nodename) c-string)
(cast (slot names 'release) c-string)
(cast (slot names 'version) c-string)
(cast (slot names 'machine) c-string))
#+freebsd 256
(addr names))))
#+(and solaris svr4)
(export '(unix-sysinfo
si-sysname si-hostname si-release si-version si-machine
......
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