Permalink
Browse files

rico -> racket-tool

  • Loading branch information...
1 parent bff6400 commit c862eb8121be398c3741b1f68e3b3fbb224d92d9 @mflatt mflatt committed Apr 21, 2010
@@ -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
@@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
- rico/command-name
+ tool/command-name
compiler/zo-parse
compiler/decompile
scheme/pretty)
@@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
- rico/command-name
+ tool/command-name
compiler/distribute)
(define verbose (make-parameter #f))
@@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
- rico/command-name
+ tool/command-name
compiler/private/embed
dynext/file)
@@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
- rico/command-name
+ tool/command-name
scheme/pretty)
(define source-files
@@ -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)
@@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
- rico/command-name
+ tool/command-name
compiler/cm
"../compiler.ss"
dynext/file)
@@ -1,6 +1,6 @@
#lang scheme/base
(require scheme/cmdline
- rico/command-name
+ tool/command-name
setup/pack
setup/getinfo
compiler/distribute)
View
@@ -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)))
@@ -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]
@@ -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")
View
@@ -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)))
@@ -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"
@@ -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)))
+
View
@@ -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)]
@@ -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 () "(???)")))
View
@@ -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,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
@@ -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))
File renamed without changes.
@@ -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"))
File renamed without changes.
@@ -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))))
@@ -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)))

0 comments on commit c862eb8

Please sign in to comment.