Ignore:
Timestamp:
Oct 14, 2008, 6:30:00 PM (13 years ago)
Author:
gz
Message:

Merge/bootstrap assorted low level stuff from trunk - kernel, syscall stuff, lowmem-bias, formatting tweaks, a few bug fixes included

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-boot-2.lisp

    r10972 r11089  
    9797  (let* ((encoding (lookup-character-encoding *terminal-character-encoding-name*))
    9898         (encoding-name (if encoding (character-encoding-name encoding))))
    99     (setq *stdin* (make-fd-stream 0
     99    (setq *stdin* (make-fd-stream #-windows-target 0
     100                                  #+windows-target (%ptr-to-int
     101                                                    (#_GetStdHandle #$STD_INPUT_HANDLE))
    100102                                  :basic t
    101103                                  :sharing :lock
     
    103105                                  :interactive (not *batch-flag*)
    104106                                  :encoding encoding-name))
    105     (setq *stdout* (make-fd-stream 1 :basic t :direction :output :sharing :lock :encoding encoding-name))
    106 
    107     (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing :lock :encoding encoding-name))
     107    (setq *stdout* (make-fd-stream #-windows-target 1
     108                                   #+windows-target (%ptr-to-int
     109                                                     (#_GetStdHandle #$STD_OUTPUT_HANDLE))
     110                                   :basic t :direction :output :sharing :lock :encoding encoding-name))
     111    (setq *stderr* (make-fd-stream #-windows-target 2
     112                                   #+windows-target (%ptr-to-int
     113                                                     (#_GetStdHandle #$STD_ERROR_HANDLE))
     114                    :basic t :direction :output :sharing :lock :encoding encoding-name))
    108115    (if *batch-flag*
    109       (let* ((tty-fd (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
    110                        (if (>= fd 0) fd)))
    111              (can-use-tty (and tty-fd (eql (tcgetpgrp tty-fd) (getpid)))))
     116      (let* ((tty-fd
     117               #-windows-target
     118               (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
     119                 (if (>= fd 0) fd)))
     120             (can-use-tty #-windows-target (and tty-fd (eql (tcgetpgrp tty-fd) (getpid)))))
    112121        (if can-use-tty
    113122          (setq
     
    253262      #+(and ppc64-target linux-target)
    254263      (bin-load-provide "FFI-LINUXPPC64" "ffi-linuxppc64")
     264      #+(and x8632-target darwin-target)
     265      (bin-load-provide "FFI-DARWINX8632" "ffi-darwinx8632")
    255266      #+(and x8664-target linux-target) 
    256267      (bin-load-provide "FFI-LINUXX8664" "ffi-linuxx8664")
     
    259270      #+(and x8664-target freebsd-target) 
    260271      (bin-load-provide "FFI-FREEBSDX8664" "ffi-freebsdx8664")
     272      #+(and x8664-target solaris-target)
     273      (bin-load-provide "FFI-SOLARISX8664" "ffi-solarisx8664")
     274      #+win64-target
     275      (bin-load-provide "FFI-WIN64" "ffi-win64")
     276      #+linuxx8632-target
     277      (bin-load-provide "FFI-LINUXX8632" "ffi-linuxx8632")
     278      #+win32-target
     279      (bin-load-provide "FFI-WIN32" "ffi-win32")
    261280     
    262281      (bin-load-provide "DB-IO" "db-io")
Note: See TracChangeset for help on using the changeset viewer.