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