Megatest

Check-in [ea67e40430]
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

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







|
>
>
>
|
|
|







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