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

Switch to racket, clarify no setting for `drdr:command-line'.

Browse Source
This commit is contained in:
Eli Barzilay 2011-06-17 21:49:57 -04:00
parent 661108e777
commit f0691d07cc
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/meta/props
View File

@ -2,7 +2,7 @@
#| -*- scheme -*- #| -*- scheme -*-
exec racket -um "$0" "$@" exec racket -um "$0" "$@"
|# |#
#lang scheme/base #lang racket/base
#| #|
@ -236,8 +236,8 @@ path/s is either such a string or a list of them.
;; ---------------------------------------------------------------------------- ;; ----------------------------------------------------------------------------
;; Reading and writing ;; Reading and writing
(require scheme/file scheme/path scheme/list scheme/string (require racket/file racket/path racket/list racket/string
(for-syntax scheme/base)) (for-syntax racket/base))
(define-syntax (this-file stx) (define-syntax (this-file stx)
(let ([src (syntax-source stx)]) (let ([src (syntax-source stx)])
@ -372,7 +372,7 @@ path/s is either such a string or a list of them.
(printf "\nKnown properties:\n") (printf "\nKnown properties:\n")
(for ([p (in-list known-props)]) (for ([p (in-list known-props)])
(printf " ~s: ~a\n" (prop-name p) (prop-description p))) (printf " ~s: ~a\n" (prop-name p) (prop-description p)))
(para "See in-script comments for a scheme interface")) (para "See in-script comments for a racket interface"))
(define (verbs) (define (verbs)
`([("help" "h" "-h" "--help") "help: show this help" ,help] `([("help" "h" "-h" "--help") "help: show this help" ,help]
[("get") "get <prop> <path/s>" ,get] [("get") "get <prop> <path/s>" ,get]
@ -474,8 +474,9 @@ path/s is either such a string or a list of them.
;; -------------------- ;; --------------------
(make-prop (make-prop
'drdr:command-line 'drdr:command-line
(string-append "command-line string (space-separated," (string-append
" empty => no execution, \"~s\" => the file)") "command-line string (space-separated, missing => default execution,"
" empty => no execution, \"~s\" => the file)")
(lambda (str) (lambda (str)
(define (bad) (error "expecting an empty string, or one with `~s'")) (define (bad) (error "expecting an empty string, or one with `~s'"))
(if (equal? str "") (if (equal? str "")
@ -1823,7 +1824,7 @@ path/s is either such a string or a list of them.
"collects/tests/racket/pathlib.rktl" drdr:command-line (racket "-f" *) "collects/tests/racket/pathlib.rktl" drdr:command-line (racket "-f" *)
"collects/tests/racket/pconvert.rktl" drdr:command-line #f "collects/tests/racket/pconvert.rktl" drdr:command-line #f
"collects/tests/racket/place-chan-rand-help.rkt" responsible (tewk) "collects/tests/racket/place-chan-rand-help.rkt" responsible (tewk)
"collects/tests/racket/place-chan-rand.rkt" responsible (tewk) drdr:command-line (racket *) "collects/tests/racket/place-chan-rand.rkt" responsible (tewk)
"collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:command-line (racket "-tm" *) "collects/tests/racket/place-channel.rkt" responsible (tewk) drdr:command-line (racket "-tm" *)
"collects/tests/racket/place.rktl" responsible (tewk) drdr:command-line (racket "-f" *) "collects/tests/racket/place.rktl" responsible (tewk) drdr:command-line (racket "-f" *)
"collects/tests/racket/port.rktl" drdr:command-line #f "collects/tests/racket/port.rktl" drdr:command-line #f