Overview
| Comment: | tweak to mtgetfile but it is not completed ... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
6014aa8df2171a1891a7a588d2c11f16 |
| User & Date: | mrwellan on 2014-01-06 15:36:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-01-10
| ||
| 08:48 | Fixed nbload utility check-in: ecd53bb6c4 user: mrwellan tags: v1.55, v1.5514 | |
|
2014-01-09
| ||
| 11:06 | first change for ABORT Closed-Leaf check-in: 19d75f5d3d user: marasaia tags: add-abort-support | |
|
2014-01-06
| ||
| 15:36 | tweak to mtgetfile but it is not completed ... check-in: 6014aa8df2 user: mrwellan tags: v1.55 | |
|
2013-12-11
| ||
| 22:37 | Better handling of comment editing on waived in the test control panel check-in: 7fcc4d2c40 user: matt tags: v1.55 | |
Changes
Modified utils/mtgetfile from [325e266edf] to [071134089a].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 |
(key-vals (if target (keys:target->keyval keys target) #f))
(errmsg (cond
((not key-vals) "missing -target")
((not target) "missing -target")
((not scriptn) "missing file name to find")
(else #f))))
(if errmsg
| | | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
(key-vals (if target (keys:target->keyval keys target) #f))
(errmsg (cond
((not key-vals) "missing -target")
((not target) "missing -target")
((not scriptn) "missing file name to find")
(else #f))))
(if errmsg
(begin
(print "THEPATH: Missing required switch: " errmsg)
(print "THEPATH: Usage: mtgetfile -target target scriptname [searchpath]")
(exit)))
(print "THEPATH: key-vals=" key-vals " path=" path " scriptn=" scriptn))
EOF
}
|
| ︙ | ︙ |