suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

less Windows special cases now that ffi-lib #f searches MzScheme DLL

Browse Source 
svn: r3513

original commit: 5eb65a0c32aa809118626f9648a4b7d44f4f74fb
This commit is contained in:
Matthew Flatt 2006-06-28 01:01:02 +00:00
parent 486ea7a2e3
commit 87173faf70
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/os.ss
View File

@ -2,11 +2,6 @@
(require (lib "etc.ss") (require (lib "etc.ss")
(lib "foreign.ss")) (unsafe!) (lib "foreign.ss")) (unsafe!)
(define msvcrt
(if (eq? 'windows (system-type))
(delay (ffi-lib "msvcrt"))
(delay #f)))
(define kernel32 (define kernel32
(delay (and (eq? 'windows (system-type)) (delay (and (eq? 'windows (system-type))
(ffi-lib "kernel32")))) (ffi-lib "kernel32"))))
@ -93,18 +88,18 @@
;; open : string int -> int ;; open : string int -> int
(define open (define open
(delay-ffi-obj (winize "open") (force msvcrt) (delay-ffi-obj (winize "open") #f
(_fun _string _int -> _int))) (_fun _string _int -> _int)))
;; close : int -> int ;; close : int -> int
(define close (define close
(delay-ffi-obj (winize "close") (force msvcrt) (delay-ffi-obj (winize "close") #f
(_fun _int -> _int))) (_fun _int -> _int)))
;; ftruncate : int int -> int ;; ftruncate : int int -> int
(define ftruncate (define ftruncate
(if (eq? 'windows (system-type)) (if (eq? 'windows (system-type))
(delay-ffi-obj "_chsize" (force msvcrt) (delay-ffi-obj "_chsize" #f
(_fun _int _llong -> _int)) (_fun _int _llong -> _int))
(delay-ffi-obj "ftruncate" #f (delay-ffi-obj "ftruncate" #f
(_fun _int _llong -> _int)))) (_fun _int _llong -> _int))))