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

Use #:usage-help to describe the behavior of raco pkg install.

Browse Source 
In particular, specify the new behavior when no pkg-sources are given.
This commit is contained in:
Sam Tobin-Hochstadt 2013-10-16 09:25:54 -04:00
parent ac1a6ecda7
commit 8ef9b98d59
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/collects/pkg/commands.rkt
View File

@ -98,9 +98,15 @@
#:attr (call 1)
(syntax->list #'(o.call ... ...))])
(define-splicing-syntax-class usage-help
#:attributes ((command-line 1))
[pattern (~seq #:usage-help s:str ...)
#:attr (command-line 1)
(syntax->list #'(#:usage-help s ...))])
(define-syntax-class command
#:attributes (name function variables command-line)
[pattern (name:id doc:expr og:option-group ... #:args args body:expr ...)
[pattern (name:id doc:expr uh:usage-help ... og:option-group ... #:args args body:expr ...)
#:do
[(define name-str (symbol->string (syntax->datum #'name)))]
#:attr function
@ -114,6 +120,7 @@
(quasisyntax/loc #'name
[#,name-str
doc doc
uh.command-line ... ...
og.command-line ... ...
#:args args
(args-app args (name og.call ... ...))])]))

2
racket/collects/pkg/main.rkt
View File

@ -135,6 +135,8 @@
;; ----------------------------------------
[install
"Install packages"
#:usage-help "Installs the packages specified by <pkg-source> ..."
"If no sources are specified, installs the current directory."
#:once-each
install-type-flags ...
#:once-any