0.9.14.31:
[sbcl.git] / src / code / linux-os.lisp
1 ;;;; OS interface functions for SBCL under Linux
2
3 ;;;; This software is part of the SBCL system. See the README file for
4 ;;;; more information.
5 ;;;;
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.
11
12 (in-package "SB!SYS")
13
14 ;;; Check that target machine features are set up consistently with
15 ;;; this file.
16 #!-linux (error "missing :LINUX feature")
17
18 (defun software-type ()
19   #!+sb-doc
20   "Return a string describing the supporting software."
21   (values "Linux"))
22
23 ;;; FIXME: More duplicated logic here vrt. other oses. Abstract into
24 ;;; uname-software-version?
25 (defun software-version ()
26   #!+sb-doc
27   "Return a string describing version of the supporting software, or NIL
28   if not available."
29   (or *software-version*
30       (setf *software-version*
31             (string-trim '(#\newline)
32                          (with-output-to-string (stream)
33                            (sb!ext:run-program "/bin/uname" `("-r")
34                                                :output stream))))))
35
36 ;;; Return user time, system time, and number of page faults.
37 (defun get-system-info ()
38   (multiple-value-bind
39       (err? utime stime maxrss ixrss idrss isrss minflt majflt)
40       (sb!unix:unix-getrusage sb!unix:rusage_self)
41     (declare (ignore maxrss ixrss idrss isrss minflt))
42     (unless err? ; FIXME: nonmnemonic (reversed) name for ERR?
43       (error "Unix system call getrusage failed: ~A." (strerror utime)))
44     (values utime stime majflt)))
45
46 ;;; Return the system page size.
47 (defun get-page-size ()
48   ;; probably should call getpagesize()
49   ;; FIXME: Or we could just get rid of this, since the uses of it look
50   ;; disposable.
51   4096)