Overview
| Comment: | Missed a commit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
aad68ae1ed007a77e87ae1f39edef9f2 |
| User & Date: | matt on 2022-10-05 09:39:32 |
| Other Links: | branch diff | manifest | tags |
Context
|
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 | |
|
2022-02-17
| ||
| 12:27 | Merged fork check-in: 162628b5d6 user: mrwellan tags: v2.0001 | |
Changes
Modified mtargs/mtargs.scm from [40b7a0d6eb] to [19da2b179c].
| ︙ | ︙ | |||
53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
(if (> (length args) 0)
(apply print "ERROR: " args))
(if (string? help)
(print help)
(print "Usage: " (car (argv)) " ... "))
(exit 0))
(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")
'())
| > > > > > > > > > > > > | 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
(if (> (length args) 0)
(apply print "ERROR: " args))
(if (string? help)
(print help)
(print "Usage: " (car (argv)) " ... "))
(exit 0))
;; one-of args defined
(define (args:any-defined? . param)
(let ((res #f))
(for-each
(lambda (arg)
(if (args:get-arg arg)(set! res #t)))
param)
res))
;; args:
(define (args:get-args args params switches arg-hash num-needed)
(let* ((numargs (length 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")
'())
|
| ︙ | ︙ |