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

rico -> racket-tool

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-21 13:38:04 -06:00
parent bff6400fb4
commit c862eb8121
24 changed files with 34 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/commands/c-ext.ss
View File

@ -7,7 +7,7 @@
(require (prefix-in compiler:option: "../option.ss")
"../compiler.ss"
rico/command-name
tool/command-name
mzlib/cmdline
dynext/file
dynext/compile

2
collects/compiler/commands/decompile.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
rico/command-name
tool/command-name
compiler/zo-parse
compiler/decompile
scheme/pretty)

2
collects/compiler/commands/exe-dir.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
rico/command-name
tool/command-name
compiler/distribute)
(define verbose (make-parameter #f))

2
collects/compiler/commands/exe.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
rico/command-name
tool/command-name
compiler/private/embed
dynext/file)

2
collects/compiler/commands/expand.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
rico/command-name
tool/command-name
scheme/pretty)
(define source-files

2
collects/compiler/commands/info.ss
View File

@ -1,6 +1,6 @@
#lang setup/infotab
(define rico
(define racket-tools
'(("make" compiler/commands/make "compile source to bytecode" 100)
("exe" compiler/commands/exe "create executable" 20)
("pack" compiler/commands/pack "pack files/collections into a .plt archive" 10)

2
collects/compiler/commands/make.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
rico/command-name
tool/command-name
compiler/cm
"../compiler.ss"
dynext/file)

2
collects/compiler/commands/pack.ss
View File

@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
rico/command-name
tool/command-name
setup/pack
setup/getinfo
compiler/distribute)

2
collects/help/info.ss
View File

@ -1,4 +1,4 @@
#lang setup/infotab
(define post-install-collection "installer.ss")
(define rico '(("docs" help/help "search and view documentation" 100)))
(define racket-tools '(("docs" help/help "search and view documentation" 100)))

2
collects/help/installer.ss
View File

@ -27,7 +27,7 @@
(parameterize ([current-launcher-variant variant])
(mk-launcher '("-l-" "help/help")
(mk-path "plt-help") ;; change to "Racket Docs"
`([exe-name . "plt-help"] ;; get rid of this (in favor of 'rico docs')
`([exe-name . "plt-help"] ;; get rid of this (in favor of 'racket-tool docs')
[relative? . #t]
[framework-root . #f]
[dll-dir . #f]

4
collects/meta/dist-specs.ss
View File

@ -431,8 +431,8 @@ platform-dependent := ; hook for package rules
mz-extras :+= (- (package: "setup-plt" #:collection "setup/")
(cond (not dr) => (srcfile: "plt-installer{|-sig|-unit}.ss")))
;; -------------------- rico
mz-extras :+= (package: "rico")
;; -------------------- racket-tool
mz-extras :+= (package: "tool")
;; -------------------- launcher
mz-extras :+= (- (collects: "launcher")

2
collects/planet/info.ss
View File

@ -5,4 +5,4 @@
(define mzscheme-launcher-libraries '("planet.ss"))
(define scribblings '(("planet.scrbl" (multi-page) (tool))))
(define rico '(("planet" planet/planet "manage Planet package installations" 80)))
(define racket-tools '(("planet" planet/planet "manage Planet package installations" 80)))

2
collects/planet/planet.ss
View File

@ -11,7 +11,7 @@ PLANNED FEATURES:
(only mzlib/list sort)
net/url
mzlib/match
rico/command-name
tool/command-name
"config.ss"
"private/planet-shared.ss"

4
collects/scribble/info.ss
View File

@ -3,3 +3,7 @@
(define mzscheme-launcher-names '("scribble"))
(define mzscheme-launcher-libraries '("run.ss"))
(define compile-omit-paths '("test-reader.ss"))
(define racket-tools
'(("scribble" scribble/run "render scribble" #f)))

2
collects/scribble/run.ss
View File

@ -6,6 +6,7 @@
scheme/cmdline
scheme/file
scheme/class
tool/command-name
(prefix-in text: "text-render.ss")
(prefix-in html: "html-render.ss")
(prefix-in latex: "latex-render.ss")
@ -35,6 +36,7 @@
(define (run)
(command-line
#:program (short-program+command-name)
#:once-any
[("--text") "generate text-format output (the default)"
(void)]

2
collects/scriblib/autobib.ss
View File

@ -36,7 +36,7 @@
(lambda (renderer part ri)
(let ([s (resolve-get part ri `(,which ,(auto-bib-key bib-entry)))])
(list (make-link-element #f
(list s (auto-bib-specific bib-entry))
(list (or s "???") (auto-bib-specific bib-entry))
`(autobib ,(auto-bib-key bib-entry))))))
(lambda () "(???)")
(lambda () "(???)")))

2
collects/setup/info.ss
View File

@ -5,4 +5,4 @@
(define mzscheme-launcher-libraries '("main.ss"))
(define mzscheme-launcher-names '("Setup PLT"))
(define rico '(("setup" setup/main "install and build libraries and documentation" 90)))
(define racket-tools '(("setup" setup/main "install and build libraries and documentation" 90)))

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

@ -6,7 +6,7 @@
#lang scheme/base
(require scheme/cmdline
rico/command-name)
tool/command-name)
(provide parse-cmdline)
@ -31,9 +31,9 @@
[(current-command-name)
(values (format "~a ~a" name (current-command-name))
(program+command-name))]
;; Hack for bootstrapping, if the program name is "rico",
;; Hack for bootstrapping, if the program name is "racket-tool",
;; then claim to be the "setup" command:
[(equal? (path->string name) "rico")
[(equal? (path->string name) "racket-tool")
(values (format "~a setup" name)
(format "~a setup" p))]
[else

6
collects/rico/all-tools.ss → collects/tool/all-tools.ss
View File

@ -4,11 +4,11 @@
(provide all-tools)
(define (all-tools)
(let* ([dirs (find-relevant-directories '(rico))]
(let* ([dirs (find-relevant-directories '(racket-tools))]
[tools (make-hash)])
(for ([i (in-list (map get-info/full dirs))]
[d (in-list dirs)])
(let ([entries (let ([l (i 'rico (lambda () null))])
(let ([entries (let ([l (i 'racket-tools (lambda () null))])
(if (list? l)
l
(list l)))])
@ -33,7 +33,7 @@
[else
(fprintf
(current-error-port)
"warning: ~s provided bad `rico' spec: ~e"
"warning: ~s provided bad `racket-tools' spec: ~e"
d
entry)]))))
tools))

0
collects/rico/command-name.ss → collects/tool/command-name.ss
View File

2
collects/rico/info.ss → collects/tool/info.ss
View File

@ -3,4 +3,4 @@
(define compile-omit-paths '("main.ss"))
(define racket-launcher-libraries '("main.ss"))
(define racket-launcher-names '("Rico"))
(define racket-launcher-names '("racket-tool"))

0
collects/rico/main.lch → collects/tool/main.lch
View File

5
collects/rico/main.ss → collects/tool/main.ss
View File

@ -1,5 +1,5 @@
;; Because `rico setup' is used to rebuild .zos, check for "setup"
;; Because `racket-tool setup' is used to rebuild .zos, check for "setup"
;; directly.
;; Note that this file is listed in "info.ss" so that it never gets a
@ -19,5 +19,4 @@
(cdr
(vector->list cmdline)))])
(dynamic-require 'setup/main #f))
(dynamic-require 'rico/rico #f))))
(dynamic-require 'tool/tool #f))))

6
collects/rico/rico.ss → collects/tool/tool.ss
View File

@ -54,7 +54,7 @@
(find-system-path 'run-file)
(car cmdline))
#f])])
(fprintf (current-error-port) "Usage: rico <command> <option> ... <arg> ...\n\n")
(fprintf (current-error-port) "Usage: racket-tool <command> <option> ... <arg> ...\n\n")
(fprintf (current-error-port) "~a commands:\n" (if show-all?
"Available"
"Frequently used"))
@ -72,7 +72,7 @@
(caddr i))))))
(printf "\nA command can be specified by an unambigous prefix.")
(unless show-all?
(printf "\nSee `rico --help' for a complete list of commands."))
(printf "\nSee `rico <command> --help' for help on a command.")
(printf "\nSee `racket-tool --help' for a complete list of commands."))
(printf "\nSee `racket-tool <command> --help' for help on a command.")
(newline)
(exit (if show-all? 0 1)))