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

use (system-type so-suffix) for dynext/file.ss utils

Browse Source 
svn: r5332
This commit is contained in:
Matthew Flatt 2007-01-12 12:05:53 +00:00
parent 812997204f
commit 258d1908cb
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/dynext/file-unit.ss
View File

@ -28,12 +28,7 @@
[(windows) #".obj"])))
(define (append-extension-suffix s)
(path-replace-suffix
s
(case (system-type)
[(unix beos) #".so"]
[(macos macosx) #".dylib"]
[(windows) #".dll"])))
(path-replace-suffix s (system-type 'so-suffix)))
(define (extract-suffix appender)
(subbytes
@ -47,7 +42,7 @@
extract-base-filename/ext)
(let ([mk
(lambda (who pat kind simple)
(let ([rx (byte-regexp
(let ([rx (byte-pregexp
(string->bytes/latin-1 (format "^(.*)\\.(~a)$" pat)))])
(letrec ([extract-base-filename
(case-lambda
@ -77,10 +72,7 @@
"compiled object"
(extract-suffix append-object-suffix))
(mk 'extract-base-filename/ext
(case (system-type)
[(unix beos) #"[sS][oO]"]
[(macos macosx) #"[dD][yY][lL][iI][bB]"]
[(windows) #"[dD][lL][lL]"])
(string->bytes/latin-1 (format "(?i:~a)" (subbytes (system-type 'so-suffix) 1)))
"MzScheme extension"
(extract-suffix append-extension-suffix)))))))