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

reformat

Browse Source 
svn: r8588
This commit is contained in:
Eli Barzilay 2008-02-08 19:32:53 +00:00
parent 0e77057aa9
commit fd1117888e
1 changed files with 94 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/setup/setup-cmdline.ss
View File

@ -3,7 +3,8 @@
;; both in setup.ss (pre-zo, pre-cm) and setup-go.ss (use zos and cm).
;; This means that command lines will be parsed twice.
(module setup-cmdline scheme/base
#lang scheme/base
(require scheme/cmdline)
(provide parse-cmdline)
@ -73,8 +74,7 @@
;; this is a bit of a hack, but it's not entirely a coincidence:
(unless (module-path? (string->symbol v))
(error (format "bad collection path~a: ~a"
(cond
[(regexp-match? #rx"/$" v)
(cond [(regexp-match? #rx"/$" v)
" (trailing slash not allowed)"]
[(regexp-match? #rx"\\\\" v)
" (backslash not allowed)"]
@ -86,19 +86,17 @@
#:multi
[("-P") owner package-name maj min
"Setup specified PLaneT packages only"
(set!
x-specific-planet-packages
(cons (list owner package-name maj min) x-specific-planet-packages))]
(set! x-specific-planet-packages (cons (list owner package-name maj min)
x-specific-planet-packages))]
#:handlers
(lambda (collections . archives)
(values (if (null? collections)
null
(car collections))
(values (if (null? collections) null (car collections))
archives))
'("archive")
(lambda (s)
(display s)
(printf "If no <archive> or -l <collection> is specified, all collections are setup~n")
(printf "If no <archive> or -l <collection> is specified, ~a\n"
"all collections are setup")
(exit 0))))
(values x-flags x-specific-collections x-specific-planet-packages x-archives)))
(values x-flags x-specific-collections x-specific-planet-packages x-archives))