Overview
| Comment: | clean up some arg handling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | envprocessing |
| Files: | files | file ages | folders |
| SHA1: |
b0c55bc31f95643f6b94e0609a351797 |
| User & Date: | matt on 2016-03-01 23:17:05 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-03-01
| ||
| 23:24 | suppressed bad error regarding keys from before the confi g is parsed. removed print statements check-in: 046859c4e5 user: matt tags: envprocessing | |
| 23:17 | clean up some arg handling check-in: b0c55bc31f user: matt tags: envprocessing | |
| 22:56 | Refactored launch:setup-for-run into simpler launch:setup check-in: 2f8dca08bf user: matt tags: envprocessing | |
Changes
Modified common.scm from [f816de044c] to [2f72d9979d].
| ︙ | ︙ | |||
464 465 466 467 468 469 470 |
(getenv "MT_RUNNAME"))))
;; (if res (set-environment-variable "MT_RUNNAME" res)) ;; not sure if this is a good idea. side effect and all ...
res))
(define (common:args-get-target #!key (split #f))
(let* ((keys (if *configdat* (keys:config-get-fields *configdat*) '()))
(numkeys (length keys))
| < | < | | | | 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 |
(getenv "MT_RUNNAME"))))
;; (if res (set-environment-variable "MT_RUNNAME" res)) ;; not sure if this is a good idea. side effect and all ...
res))
(define (common:args-get-target #!key (split #f))
(let* ((keys (if *configdat* (keys:config-get-fields *configdat*) '()))
(numkeys (length keys))
(target (or (args:get-arg "-reqtarg")
(args:get-arg "-target")
(getenv "MT_TARGET")))
(tlist (if target (string-split target "/" #t) '()))
(valid (if target
(and (not (null? tlist))
(eq? numkeys (length tlist))
(null? (filter string-null? tlist)))
#f)))
(if valid
(if split
tlist
target)
(if target
(begin
(debug:print 0 "ERROR: Invalid target, spaces or blanks not allowed \"" target "\", target should be: " (string-intersperse keys "/") ", have " tlist " for elements")
#f)
#f))))
;;======================================================================
;; M I S C L I S T S
;;======================================================================
|
| ︙ | ︙ |