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: |
bd5a474d0e90e01bf8af6d895514e3d0 |
| User & Date: | mrwellan on 2012-04-11 14:19:54 |
| Other Links: | manifest | tags |
Context
|
2012-04-11
| ||
| 17:12 | Catch case where itempatt causes zero matches check-in: a4f0cd340e user: mrwellan tags: trunk | |
| 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 | |
Changes
Modified configf.scm from [f5c1fc8a81] to [aeb220e9e6].
| ︙ | ︙ | |||
136 137 138 139 140 141 142 | 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))) | < < | | | | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 | 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 (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)) |
| ︙ | ︙ |