Overview
| Comment: | junk lines in mtargs.scm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
b70c9cc8dcc3f963b0fb65b719b08ddc |
| User & Date: | matt on 2022-11-15 05:27:59 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-24
| ||
| 01:25 | Bumped version check-in: 0abd544e05 user: matt tags: v2.0001 | |
|
2022-11-15
| ||
| 05:27 | junk lines in mtargs.scm check-in: b70c9cc8dc user: matt tags: v2.0001 | |
|
2022-10-05
| ||
| 09:39 | Missed a commit check-in: aad68ae1ed user: matt tags: v2.0001 | |
Changes
Modified mtargs/mtargs.scm from [19da2b179c] to [30504e2303].
| ︙ | ︙ | |||
54 55 56 57 58 59 60 |
(apply print "ERROR: " args))
(if (string? help)
(print help)
(print "Usage: " (car (argv)) " ... "))
(exit 0))
;; one-of args defined
| | | < < | 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 |
(apply print "ERROR: " args))
(if (string? help)
(print help)
(print "Usage: " (car (argv)) " ... "))
(exit 0))
;; one-of args defined
(define (any-defined? . param)
(let ((res #f))
(for-each
(lambda (arg)
(if (get-arg arg)(set! res #t)))
param)
res))
;; args:
(define (get-args args params switches arg-hash num-needed)
(let* ((numtargs (length args))
(adj-num-needed (if num-needed (+ num-needed 2) #f)))
(if (< numtargs (if adj-num-needed adj-num-needed 2))
(if (>= num-needed 1)
(usage "No arguments provided")
'())
|
| ︙ | ︙ |