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

patch for windows

Browse Source
This commit is contained in:
Danny Yoo 2011-11-01 10:52:27 -04:00
parent e72671fa77
commit bc902e72da
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
parser/path-rewriter.rkt
View File

@ -5,7 +5,8 @@
racket/path racket/path
racket/contract racket/contract
racket/list racket/list
racket/runtime-path) racket/runtime-path
racket/string)
@ -36,22 +37,29 @@
[(within-whalesong-path? a-path) [(within-whalesong-path? a-path)
(string->symbol (string->symbol
(string-append "whalesong/" (string-append "whalesong/"
(path->string (my-path->string
(find-relative-path normal-whalesong-path a-path))))] (find-relative-path normal-whalesong-path a-path))))]
[(within-collects? a-path) [(within-collects? a-path)
(string->symbol (string->symbol
(string-append "collects/" (string-append "collects/"
(path->string (my-path->string
(find-relative-path collects-path a-path))))] (find-relative-path collects-path a-path))))]
[(within-root-path? a-path) [(within-root-path? a-path)
(string->symbol (string->symbol
(string-append "root/" (string-append "root/"
(path->string (my-path->string
(find-relative-path (current-root-path) a-path))))] (find-relative-path (current-root-path) a-path))))]
[else [else
#f]))) #f])))
;; Like path->string, but I force the path separator to be '/' rather than the platform
;; specific one.
(define (my-path->string a-path)
(string-join (map path->string (explode-path a-path)) "/"))
(define (within-root-path? a-path) (define (within-root-path? a-path)