Differences From Artifact [cc1616820d]:
- File margs.scm — part of check-in [a7b0d6ce43] at 2022-08-17 19:02:39 on branch v1.70 — changed dashboard to use -target for target/run. Changed db:cautious-open to handle read-only (user: mmgraham, size: 2982) [annotate] [blame] [check-ins using]
To Artifact [30af224846]:
- File margs.scm — part of check-in [5ff7f64267] at 2022-09-04 20:10:43 on branch v1.70-ck5 — wip (user: matt, size: 3099) [annotate] [blame] [check-ins using] [more...]
︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 27 28 | 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 | + + + + + + + + + + + + + + | ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. (declare (unit margs)) ;; (declare (uses common)) (module margs * (import scheme chicken.base chicken.process-context srfi-1 srfi-69 ) (define help #f) (define args:arg-hash (make-hash-table)) (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)))) |
︙ | |||
87 88 89 90 91 92 93 | 101 102 103 104 105 106 107 108 | + | )) (define (args:print-args remargs arg-hash) (print "ARGS: " remargs) (for-each (lambda (arg) (print " " arg " " (hash-table-ref/default arg-hash arg #f))) (hash-table-keys arg-hash))) ) |