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

racket-tool -> raco

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-24 07:17:53 -06:00
parent b0deb8affb
commit 22470e4147
25 changed files with 33 additions and 31 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"
tool/command-name
raco/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
tool/command-name
raco/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
tool/command-name
raco/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
tool/command-name
raco/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
tool/command-name
raco/command-name
scheme/pretty)
(define source-files

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

@ -1,6 +1,6 @@
#lang setup/infotab
(define racket-tools
(define raco-commands
'(("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
tool/command-name
raco/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
tool/command-name
raco/command-name
setup/pack
setup/getinfo
compiler/distribute)

4
collects/help/help.ss
View File

@ -1,10 +1,12 @@
#lang scheme/base
(require "search.ss" scheme/cmdline scheme/list scheme/string)
(require "search.ss" scheme/cmdline scheme/list scheme/string
raco/command-name)
;; Minimal command-line arguments, the query string can contain all
;; kinds of magic.
(command-line
#:program (short-program+command-name)
#:handlers
(lambda (_ . ts)
(if (null? ts)

2
collects/help/info.ss
View File

@ -1,4 +1,4 @@
#lang setup/infotab
(define post-install-collection "installer.ss")
(define racket-tools '(("docs" help/help "search and view documentation" 100)))
(define raco-commands '(("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 'racket-tool docs')
`([exe-name . "plt-help"] ;; get rid of this (in favor of 'raco 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")))
;; -------------------- racket-tool
mz-extras :+= (package: "tool")
;; -------------------- raco
mz-extras :+= (package: "raco")
;; -------------------- 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 racket-tools '(("planet" planet/planet "manage Planet package installations" 80)))
(define raco-commands '(("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
tool/command-name
raco/command-name
"config.ss"
"private/planet-shared.ss"

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

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

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

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

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

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

4
collects/tool/main.ss → collects/raco/main.ss
View File

@ -1,5 +1,5 @@
;; Because `racket-tool setup' is used to rebuild .zos, check for "setup"
;; Because `raco 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,4 +19,4 @@
(cdr
(vector->list cmdline)))])
(dynamic-require 'setup/main #f))
(dynamic-require 'tool/tool #f))))
(dynamic-require 'raco/raco #f))))

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

@ -54,7 +54,7 @@
(find-system-path 'run-file)
(car cmdline))
#f])])
(fprintf (current-error-port) "Usage: racket-tool <command> <option> ... <arg> ...\n\n")
(fprintf (current-error-port) "Usage: raco <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 `racket-tool --help' for a complete list of commands."))
(printf "\nSee `racket-tool <command> --help' for help on a command.")
(printf "\nSee `raco --help' for a complete list of commands."))
(printf "\nSee `raco <command> --help' for help on a command.")
(newline)
(exit (if show-all? 0 1)))

2
collects/scribble/info.ss
View File

@ -4,6 +4,6 @@
(define mzscheme-launcher-libraries '("run.ss"))
(define compile-omit-paths '("test-reader.ss"))
(define racket-tools
(define raco-commands
'(("scribble" scribble/run "render a Scribble document" #f)))

2
collects/scribble/run.ss
View File

@ -6,7 +6,7 @@
scheme/cmdline
scheme/file
scheme/class
tool/command-name
raco/command-name
(prefix-in text: "text-render.ss")
(prefix-in html: "html-render.ss")
(prefix-in latex: "latex-render.ss")

2
collects/setup/info.ss
View File

@ -5,4 +5,4 @@
(define mzscheme-launcher-libraries '("main.ss"))
(define mzscheme-launcher-names '("Setup PLT"))
(define racket-tools '(("setup" setup/main "install and build libraries and documentation" 90)))
(define raco-commands '(("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
tool/command-name)
raco/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 "racket-tool",
;; Hack for bootstrapping, if the program name is "raco",
;; then claim to be the "setup" command:
[(equal? (path->string name) "racket-tool")
[(equal? (path->string name) "raco")
(values (format "~a setup" name)
(format "~a setup" p))]
[else

2
src/Makefile.in
View File

@ -54,7 +54,7 @@ both:
# Install (common) ----------------------------------------
SETUP_ARGS = -X "$(DESTDIR)$(collectsdir)" -N "rico setup" -l setup
SETUP_ARGS = -X "$(DESTDIR)$(collectsdir)" -N "raco setup" -l setup
install:
$(MAKE) install-@MAIN_VARIANT@