Overview
| Comment: | Added check for target of wrong number of fields |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
570ea78e10936cf48052c7f6c56073dc |
| User & Date: | matt on 2015-06-15 00:30:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-15
| ||
| 01:01 | Added better rollup of WARN, WAIVED, etc. Fixed waiver setting. check-in: b0fecb65e1 user: matt tags: v1.60, v1.6017 | |
| 00:30 | Added check for target of wrong number of fields check-in: 570ea78e10 user: matt tags: v1.60 | |
| 00:13 | Several sundry bugs fixed. check-in: ecfc51c43c user: matt tags: v1.60 | |
Changes
Modified common.scm from [714163596a] to [f55a8fbc05].
| ︙ | ︙ | |||
393 394 395 396 397 398 399 |
"disks" '("none" "")))
;;======================================================================
;; T A R G E T S
;;======================================================================
(define (common:args-get-target #!key (split #f))
| > > | > | | 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 |
"disks" '("none" "")))
;;======================================================================
;; T A R G E T S
;;======================================================================
(define (common:args-get-target #!key (split #f))
(let* ((keys (keys:config-get-fields *configdat*))
(numkeys (length keys))
(target (if (args:get-arg "-reqtarg")
(args:get-arg "-reqtarg")
(if (args:get-arg "-target")
(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 "/"))
#f)
#f))))
;;======================================================================
;; M I S C L I S T S
;;======================================================================
|
| ︙ | ︙ |