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

.

Browse Source 
original commit: 0f10e557c6cef1aa3966c273a15ee22bf9877243
This commit is contained in:
Matthew Flatt 2005-04-19 02:27:13 +00:00
parent 53d71d0bc1
commit 8cf48bf54d
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/mzlib/os.ss
View File

@ -14,22 +14,19 @@
(delay (and (eq? 'windows (system-type))
(ffi-lib "kernel32"))))
(define (delay-ffi-obj name lib type default-result)
(delay (get-ffi-obj name lib type (lambda ()
(lambda () default-result)))))
(define (delay-ffi-obj name lib type)
(delay (get-ffi-obj name lib type)))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; gethostbyname
(define unix-gethostname
(delay-ffi-obj "gethostname" #f
(_fun _bytes _int -> _int)
-1))
(_fun _bytes _int -> _int)))
(define windows-getcomputername
(delay-ffi-obj "GetComputerNameExA" (force kernel32)
(_fun _int _bytes _cvector -> _int)
0))
(_fun _int _bytes _cvector -> _int)))
(define (gethostname)
(case (system-type)
@ -56,13 +53,11 @@
(define unix-getpid
(delay-ffi-obj "getpid" #f
(_fun -> _int)
#f))
(_fun -> _int)))
(define windows-getpid
(delay-ffi-obj "GetCurrentProcessId" (force kernel32)
(_fun -> _int)
#f))
(_fun -> _int)))
(define (getpid)
(case (system-type)