Overview
| Comment: | Fix to margs? |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | runcontrol |
| Files: | files | file ages | folders |
| SHA1: |
a29af7bffd0a7a2a5f001e4f19691d2b |
| User & Date: | matt on 2013-04-20 22:41:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-04-20
| ||
| 22:42 | Basic target updating on run control in place check-in: 4df25afb3e user: matt tags: runcontrol | |
| 22:41 | Fix to margs? check-in: a29af7bffd user: matt tags: runcontrol | |
| 11:49 | first cut at hierarchial selector for targets check-in: b4c4ed6017 user: matt tags: runcontrol | |
Changes
Modified margs.scm from [282b6e3581] to [5bb81571cb].
| ︙ | ︙ | |||
15 16 17 18 19 20 21 |
(define (args:get-arg arg . default)
(if (null? default)
(hash-table-ref/default args:arg-hash arg #f)
(hash-table-ref/default args:arg-hash arg (car default))))
(define (args:get-arg-from ht arg . default)
(if (null? default)
| | | | > | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
(define (args:get-arg arg . default)
(if (null? default)
(hash-table-ref/default args:arg-hash arg #f)
(hash-table-ref/default args:arg-hash arg (car default))))
(define (args:get-arg-from ht arg . default)
(if (null? default)
(hash-table-ref/default ht arg #f)
(hash-table-ref/default ht arg (car default))))
(define (args:usage . args)
(if (> (length args) 0)
(apply print "ERROR: " args))
(if (string? help)
(print help)
(print "Usage: " (car (argv)) " ... "))
(exit 0))
;; args:
(define (args:get-args args params switches arg-hash num-needed)
(let* ((numargs (length args))
(adj-num-needed (if num-needed (+ num-needed 2) #f)))
(if (< numargs (if adj-num-needed adj-num-needed 2))
(if (>= num-needed 1)
(args:usage "No arguments provided")
'())
(let loop ((arg (cadr args))
(tail (cddr args))
(remargs '()))
(cond
((member arg params) ;; args with params
(if (< (length tail) 1)
(args:usage "param given without argument " arg)
|
| ︙ | ︙ |