rico -> racket-tool

collects/compiler/commands/c-ext.ss

@@ -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

collects/compiler/commands/decompile.ss

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

collects/compiler/commands/exe-dir.ss

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

collects/compiler/commands/exe.ss

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

collects/compiler/commands/expand.ss

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

collects/compiler/commands/info.ss

@@ -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)

collects/compiler/commands/make.ss

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

collects/compiler/commands/pack.ss

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

collects/help/info.ss

@@ -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)))

collects/help/installer.ss

@@ -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]

collects/meta/dist-specs.ss

@@ -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
+;; -------------------- racket-tool
-mz-extras :+= (package: "rico")
+mz-extras :+= (package: "tool")
 
 ;; -------------------- launcher
 mz-extras :+= (- (collects: "launcher")

collects/planet/info.ss

@@ -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)))

collects/planet/planet.ss

@@ -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"

collects/scribble/info.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)))
+

collects/scribble/run.ss

@@ -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)]

collects/scriblib/autobib.ss

@@ -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 () "(???)")))

collects/setup/info.ss

@@ -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)))

collects/setup/setup-cmdline.ss

@@ -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

collects/tool/all-tools.ss

@@ -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))

collects/tool/info.ss

@@ -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"))

collects/tool/main.ss

@@ -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))))
-

collects/tool/tool.ss

@@ -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 `racket-tool --help' for a complete list of commands."))
-    (printf "\nSee `rico <command> --help' for help on a command.")
+    (printf "\nSee `racket-tool <command> --help' for help on a command.")
     (newline)
     (exit (if show-all? 0 1)))