Overview
| Comment: | Fixed issue where config is called with filename only and no path |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ea67e404309fbe05b1d073b52411bd9c |
| User & Date: | mrwellan on 2012-04-11 14:15:52 |
| Other Links: | manifest | tags |
Context
|
2012-04-11
| ||
| 14:19 | Fixed issue where config is called with filename only and no path check-in: bd5a474d0e user: mrwellan tags: trunk | |
| 14:15 | Fixed issue where config is called with filename only and no path check-in: ea67e40430 user: mrwellan tags: trunk | |
| 13:48 | Fixed typo in summarize-tests check-in: b48eda5c31 user: mrwellan tags: trunk | |
Changes
Modified configf.scm from [50193abc88] to [f5c1fc8a81].
| ︙ | ︙ | |||
134 135 136 137 138 139 140 | (begin (close-input-port inp) res) (regex-case inl (configf:comment-rx _ (loop (configf:read-line inp res) curr-section-name #f #f)) (configf:blank-l-rx _ (loop (configf:read-line inp res) curr-section-name #f #f)) | | > > > | | | | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 | (begin (close-input-port inp) res) (regex-case inl (configf:comment-rx _ (loop (configf:read-line inp res) curr-section-name #f #f)) (configf:blank-l-rx _ (loop (configf:read-line inp res) curr-section-name #f #f)) (configf:include-rx ( x include-file ) (let ((curr-dir (current-directory)) (conf-dir (pathname-directory path))) (if conf-dir (begin (change-directory conf-dir) (read-config include-file res allow-system environ-patt: environ-patt curr-section: curr-section-name) (change-directory curr-dir))) (loop (configf:read-line inp res) curr-section-name #f #f))) (configf:section-rx ( x section-name ) (loop (configf:read-line inp res) section-name #f #f)) (configf:key-sys-pr ( x key cmd ) (if allow-system (let ((alist (hash-table-ref/default res curr-section-name '())) (val-proc (lambda () (let* ((cmdres (cmd-run->list cmd)) (status (cadr cmdres)) |
| ︙ | ︙ |