adjust the pkg/main.rkt exports to be of the form

pkt-<X>-command to avoid conflicting with pkg/lib
This commit is contained in:
Robby Findler 2013-07-03 03:22:18 -05:00
parent 902869dcf1
commit 964e1382f4
8 changed files with 23 additions and 22 deletions

View File

@ -8,7 +8,7 @@
(define s (url->string url))
(define l (pkg-config-catalogs))
(unless (member s l)
(apply pkg-config #:set #t
(apply pkg-config-command #:set #t
"catalogs"
(append l (list s)))))

View File

@ -450,7 +450,7 @@
(parameterize ([current-output-port pkg-info-sp])
(with-handlers ([exn:fail? (lambda (exn)
(printf "ERROR:\n~a" (exn-message exn)))])
(pkg-show)))
(pkg-show-command)))
(send (send pkg-info get-editor)
insert
(get-output-string pkg-info-sp))

View File

@ -87,7 +87,7 @@
(string-constant install-pkg-abort-remove)
(lambda ()
(apply
pkg-remove
pkg-remove-command
#:scope scope
names)))
(reset-installed-list!)))]))
@ -104,7 +104,7 @@
(string-constant install-pkg-abort-update)
(lambda ()
(apply
pkg-update
pkg-update-command
#:scope scope
names)))
(reset-installed-list!))]))

View File

@ -180,7 +180,7 @@
(string-constant install-pkg-abort-install))
(lambda ()
(apply
(if first-inst pkg-update pkg-install)
(if first-inst pkg-update-command pkg-install-command)
#:scope (and first-inst
(car first-inst))
names)))

View File

@ -120,8 +120,8 @@
[(update) (string-constant install-pkg-abort-update)])
(lambda ()
(define action (case (car res)
[(install) pkg-install]
[(update) pkg-update]))
[(install) pkg-install-command]
[(update) pkg-update-command]))
(apply action (cdr res))))
(reset-installed-pkgs!))]))
@ -199,7 +199,7 @@
(in-terminal
(lambda ()
(define scope (selected-scope))
(pkg-config #:scope 'installation #:set #t "default-scope" (~a scope))
(pkg-config-command #:scope 'installation #:set #t "default-scope" (~a scope))
(printf "Default scope successfully changed to ~a" scope)))
(adjust-all))]))
(define inferred-scope-msg-parent (new horizontal-panel%

View File

@ -521,14 +521,14 @@ The @racketmodname[pkg] module provides a programmatic interface
to the command sub-sub-commands.
@deftogether[
(@defthing[pkg-install procedure?]
@defthing[pkg-update procedure?]
@defthing[pkg-remove procedure?]
@defthing[pkg-show procedure?]
@defthing[pkg-config procedure?]
@defthing[pkg-create procedure?]
@defthing[pkg-catalog-show procedure?]
@defthing[pkg-catalog-copy procedure?])
(@defthing[pkg-install-command procedure?]
@defthing[pkg-update-command procedure?]
@defthing[pkg-remove-command procedure?]
@defthing[pkg-show-command procedure?]
@defthing[pkg-config-command procedure?]
@defthing[pkg-create-command procedure?]
@defthing[pkg-catalog-show-command procedure?]
@defthing[pkg-catalog-copy-command procedure?])
]{
Duplicates the @seclink["cmdline"]{command line interface}.

View File

@ -117,16 +117,17 @@
(define-syntax (commands stx)
(syntax-parse stx
[(_ main-doc:expr export-prefix:id c:command ...)
[(_ main-doc:expr export-format:str c:command ...)
(with-syntax ([(export-names ...)
(map (λ (x) (string->symbol (format "~a~a"
(syntax-e #'export-prefix)
(syntax-e x))))
(map (λ (x)
#`[#,x
#,(string->symbol (format (syntax-e #'export-format)
(syntax-e x)))])
(syntax->list #'(c.name ...)))])
(syntax/loc stx
(begin
c.function ...
(provide export-names ...)
(provide (rename-out export-names ...))
(module+ main
c.variables ...
(svn-style-command-line

View File

@ -51,7 +51,7 @@
(commands
"This tool is used for managing installed packages."
pkg-
"pkg-~a-command"
[install
"Install packages"
#:once-each