1 ;;;; OS interface functions for SBCL under SunOS
3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
14 ;;; Check that target machine features are set up consistently with
16 #!-sunos
(error "missing :SUNOS feature")
18 (defun software-type ()
19 "Return a string describing the supporting software."
22 (defun software-version ()
23 "Return a string describing version of the supporting software, or NIL
25 (or *software-version
*
26 (setf *software-version
*
27 (string-trim '(#\newline
)
28 (sb!kernel
:with-simple-output-to-string
(stream)
29 (run-program "/bin/uname" `("-r")
32 ;;; Return system time, user time and number of page faults.
33 (defun get-system-info ()
35 (err? utime stime maxrss ixrss idrss isrss minflt majflt
)
36 (sb!unix
:unix-getrusage sb
!unix
:rusage_self
)
37 (declare (ignore maxrss ixrss idrss isrss minflt
))
38 (unless err?
; FIXME: nonmnemonic (reversed) name for ERR?
39 (error "Unix system call getrusage failed: ~A." (strerror utime
)))
40 (values utime stime majflt
)))
42 ;;; Return the system page size.
43 (defun get-page-size ()
44 ;; probably should call getpagesize()
45 ;; FIXME: Or we could just get rid of this, since the uses of it look
47 ;; FIXME II: this could well be wrong
49 #!+(or x86 x86-64
) 4096)
51 ;;; support for CL:MACHINE-VERSION defined OAOO elsewhere
52 (defun get-machine-version ()