/[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.2 by toy, Mon Oct 7 14:31:04 2002 UTC revision 1.3 by toy, Mon Nov 18 13:52:24 2002 UTC
# Line 9  Line 9 
9  ;;;  ;;;
10  ;;; **********************************************************************  ;;; **********************************************************************
11  ;;;  ;;;
12  ;;; OS interface functions for CMU CL under Mach.  ;;; OS interface functions for CMUCL under Linux.
13  ;;;  ;;;
14  ;;; Written and maintained mostly by Skef Wholey and Rob MacLachlan.  ;;; Written and maintained mostly by Skef Wholey and Rob MacLachlan.
15  ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.  ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.
16  ;;;  ;;;
17  ;;; Hacked into Linux-os.lisp /Werkowski  ;;; Derived from mach-os.lisp by Paul Werkowski
18    
19  (in-package "SYSTEM")  (in-package "SYSTEM")
20  (use-package "EXTENSIONS")  (use-package "EXTENSIONS")
# Line 26  Line 26 
26    
27  (defun software-version ()  (defun software-version ()
28    "Returns a string describing version of the supporting software."    "Returns a string describing version of the supporting software."
29    #+nil    (when (probe-file "/proc/version")
30    (string-trim '(#\newline)      (with-open-file (f "/proc/version")
31                 (with-output-to-string (stream)        (read-line f))))
32                   (run-program "/usr/cs/etc/version" ; Site dependent???  
33                                nil :output stream)))  
34    "n/a")  ;;; OS-Init initializes our operating-system interface.
35    ;;;
36    (defun os-init () nil)
 ;;; OS-Init initializes our operating-system interface.  It sets the values  
 ;;; of the global port variables to what they should be and calls the functions  
 ;;; that set up the argument blocks for the server interfaces.  
   
 (defvar *task-self*)  
   
 (defun os-init ()                       ; don't know what to do here  
   #+sparc ;; Can't use #x20000000 thru #xDFFFFFFF, but mach tries to let us.  
   (system:allocate-system-memory-at (system:int-sap #x20000000) #xc0000000))  
37    
38    
39  ;;; GET-SYSTEM-INFO  --  Interface  ;;; GET-SYSTEM-INFO  --  Interface
# Line 66  Line 57 
57  ;;;    Return the system page size.  ;;;    Return the system page size.
58  ;;;  ;;;
59  (defun get-page-size ()  (defun get-page-size ()
60    ;; probably should call getpagesize()    (multiple-value-bind (val err)
61    4096)        (unix:unix-getpagesize)
62        (unless val
63          (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
64        val))
65    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5