/[cmucl]/src/code/linux-os.lisp
ViewVC logotype

Diff of /src/code/linux-os.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by rtoy, Thu Jun 11 16:03:58 2009 UTC revision 1.8.12.2 by rtoy, Sun Feb 14 03:06:41 2010 UTC
# Line 18  Line 18 
18    
19  (in-package "SYSTEM")  (in-package "SYSTEM")
20  (use-package "EXTENSIONS")  (use-package "EXTENSIONS")
21    (intl:textdomain "cmucl")
22    
23  (export '(get-system-info get-page-size os-init))  (export '(get-system-info get-page-size os-init))
24    
25  (register-lisp-feature :linux)  (register-lisp-feature :linux)
# Line 30  Line 32 
32  ;;; select() in Linux kernel 2.6.x) and instead of running uname -r,  ;;; select() in Linux kernel 2.6.x) and instead of running uname -r,
33  ;;; let's just get the info from uname().  ;;; let's just get the info from uname().
34  (defun software-version ()  (defun software-version ()
35    "Returns a string describing version of the supporting software."    _N"Returns a string describing version of the supporting software."
36    (multiple-value-bind (sysname nodename release version)    (multiple-value-bind (sysname nodename release version)
37        (unix:unix-uname)        (unix:unix-uname)
38      (declare (ignore sysname nodename))      (declare (ignore sysname nodename))
# Line 52  Line 54 
54                         (unix:unix-getrusage unix:rusage_self)                         (unix:unix-getrusage unix:rusage_self)
55      (declare (ignore maxrss ixrss idrss isrss minflt))      (declare (ignore maxrss ixrss idrss isrss minflt))
56      (unless err?      (unless err?
57        (error "Unix system call getrusage failed: ~A."        (error _"Unix system call getrusage failed: ~A."
58               (unix:get-unix-error-msg utime)))               (unix:get-unix-error-msg utime)))
59    
60      (values utime stime majflt)))      (values utime stime majflt)))
# Line 66  Line 68 
68    (multiple-value-bind (val err)    (multiple-value-bind (val err)
69        (unix:unix-getpagesize)        (unix:unix-getpagesize)
70      (unless val      (unless val
71        (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))        (error _"Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
72      val))      val))
73    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.8.12.2

  ViewVC Help
Powered by ViewVC 1.1.5