Megatest

Check-in [bd5a474d0e]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: bd5a474d0e90e01bf8af6d895514e3d05cbc47d1
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified configf.scm from [f5c1fc8a81] to [aeb220e9e6].

︙
136
137
138
139
140
141
142
143
144
145
146
147



148
149
150
151
152
153
154

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
							    (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)))
							(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))
︙

This page was generated in about 0.109s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00