Megatest

Check-in [ea67e40430]
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: ea67e404309fbe05b1d073b52411bd9cb752954f
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified configf.scm from [50193abc88] to [f5c1fc8a81].

︙
134
135
136
137
138
139
140
141
142
143
144







145
146
147
148
149
150
151

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)))
							(change-directory (pathname-directory path))
							(read-config include-file res allow-system environ-patt: environ-patt curr-section: curr-section-name)
							(change-directory curr-dir)
	       (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))
︙

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