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

more clarifications

Browse Source 
svn: r18750
This commit is contained in:
Eli Barzilay 2010-04-07 13:41:02 +00:00
parent e2e2c1e802
commit 5e55dc1000
1 changed files with 27 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
collects/meta/props
View File

@ -14,11 +14,10 @@ you can add this to your git config file:
[alias] [alias]
prop = "!$(git rev-parse --show-toplevel)/collects/meta/props" prop = "!$(git rev-parse --show-toplevel)/collects/meta/props"
and use it as a git command: `git prop ...args....'. Note that this will uses and use it as a git command: `git prop cmd args...'. This will use the script
the script from the work tree that you're now in, with any mzscheme executable from the work tree that you're now in, with any mzscheme executable that
that happens to be on your $PATH. This is fine, because the script will modify happens to be on your $PATH. This is fine, because the script reads and writes
itself based on where it was called from, unelated to the mzscheme version that itself, unelated to the mzscheme version that runs it.
runs it.
As described above, the format of this file makes it easy to edit manually, but As described above, the format of this file makes it easy to edit manually, but
it should be considered internal and mostly manipulated by running it as a it should be considered internal and mostly manipulated by running it as a
@ -43,17 +42,17 @@ the data is expected to have the correct format (it is checked when properties
are set by running this file as a script). are set by running this file as a script).
Requiring this file builds the data table and provides an interface for Requiring this file builds the data table and provides an interface for
properties, intended to be used by meta tools: properties, intended to be used by meta tools. In these functions, `path' is a path argument that is
* (get-prop "some/path" 'known-prop [default] #:strict? [strict? #f]) * (get-prop path/s prop [default] #:strict? [strict? #f])
Returns the property value of a given path, given as a "/"-delimited string. Returns the property value of a given path, given as a "/"-delimited string.
The default is similar to `hash-ref' (can be a thunk, a value, or if not The `default' argument is used similarly to `hash-ref' (can be a thunk, a
specified an exception is raised). If `strict?' is true, then the property value, or if not specified an exception is raised). If `strict?' is true,
value of the path itself is returned, not inheriting values from parent then the property value of the path itself is returned, not inheriting values
paths. from parent paths.
* (set-prop! "some/path" 'known-prop value [warn? #t]) * (set-prop! path/s prop value [warn? #t])
Sets the value of a (known) proprty for a given path or paths (a string or a Sets the value of a (known) proprty for a given path or paths (a string or a
list of strings). The path string/s is/are verified (relative paths list of strings). The path string/s is/are verified (relative paths
@ -312,7 +311,9 @@ properties, intended to be used by meta tools:
(let ([s (string->symbol str)]) (let ([s (string->symbol str)])
(car (or (assq s known-props) (error* #f "unknown property `~s'" s))))) (car (or (assq s known-props) (error* #f "unknown property `~s'" s)))))
(define (help . _) (define (help . _)
(define (para . lines) (for ([line lines]) (printf " ~a\n" line))) (define (para . lines)
(newline)
(for ([line lines]) (printf " ~a\n" line)))
(printf "Usage: ~a subcommand args ...\n" (script-name)) (printf "Usage: ~a subcommand args ...\n" (script-name))
(para (para
"This is a utility for manipulating properties in the PLT repository." "This is a utility for manipulating properties in the PLT repository."
@ -320,13 +321,18 @@ properties, intended to be used by meta tools:
"known properties. The given paths are normalized to be relative to the" "known properties. The given paths are normalized to be relative to the"
"plt root for the tree holding this script *if* it is in such a tree" "plt root for the tree holding this script *if* it is in such a tree"
"(determined by inspecting a few known directories), otherwise an error" "(determined by inspecting a few known directories), otherwise an error"
"is raised. Note that this script holds the data that it changes, so you" "is raised."
"need to commit it after changes are made. Also note that it does not" ""
"depend on the plt installation that runs it -- you just need to use the" "Note: this script holds the data that it changes, so you need to commit"
"script from the work directory that you want to deal with; if you add" "it after changes are made."
""
"Note: it does not depend on the plt installation that runs it -- you"
"just need to use the script from the work directory that you want to"
"deal with; if you add a git alias like:"
" prop = \"!$(git rev-parse --show-toplevel)/collects/meta/props\"" " prop = \"!$(git rev-parse --show-toplevel)/collects/meta/props\""
"to your global git config file (usually ~/.gitconfig), then you'll be" "to your global git config file (usually ~/.gitconfig), then you'll be"
"able to run it as `git prop'." "able to run it as `git prop' (the first part of this finds the root of"
"your workdir)."
"" ""
"Path arguments can also be given via stdin (each on a line) if the" "Path arguments can also be given via stdin (each on a line) if the"
"command-line path argument is a single `-'. In this mode the paths are" "command-line path argument is a single `-'. In this mode the paths are"
@ -335,7 +341,8 @@ properties, intended to be used by meta tools:
(for ([v (in-list (verbs))]) (printf " ~a\n" (cadr v))) (for ([v (in-list (verbs))]) (printf " ~a\n" (cadr v)))
(printf "\nKnown properties:\n") (printf "\nKnown properties:\n")
(for ([p (in-list known-props)]) (for ([p (in-list known-props)])
(printf " ~s: ~a\n" (car p) (caddr p)))) (printf " ~s: ~a\n" (car p) (caddr p)))
(para "See in-script comments for a scheme 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]
@ -381,7 +388,7 @@ properties, intended to be used by meta tools:
[val (with-handlers [val (with-handlers
([exn? (lambda (_) ([exn? (lambda (_)
(error* #f "unreadable value \"~a\", ~a" val (error* #f "unreadable value \"~a\", ~a" val
"must be a single scheme sexpr"))]) "must be a single sexpr"))])
(let ([v (read in)]) (let ([v (read in)])
(if (and (pair? v) (null? (cdr v))) (if (and (pair? v) (null? (cdr v)))
(car v) (car v)