Megatest

;;======================================================================

;;======================================================================
;; Config file handling
;;======================================================================

;; (use regex regex-case matchable) ;;  directory-utils)
;; (declare (unit configf))
;; (declare (uses process))
;; (declare (uses env))
;; (declare (uses keys))
;; (declare (uses debugprint))
;; (declare (uses mtargs))
;; (declare (uses mtargs.import))
;; (declare (uses common))
;; (declare (uses commonmod))
;; (declare (uses commonmod.import))
;; (declare (uses processmod))
;; (declare (uses processmod.import))
;; (declare (uses configfmod))
;; (declare (uses configfmod.import))
;; (declare (uses dbfile))
;; (declare (uses dbfile.import))
;; (declare (uses dbmod))
;; (declare (uses dbmod.import))
;; (declare (uses mtmod))
;; (declare (uses mtmod.import))
;; (declare (uses megatestmod))
;; (declare (uses megatestmod.import))
;; 
;; (import commonmod
;; 	configfmod
;; 	processmod
;; 	(prefix mtargs args:)
;; 	debugprint
;; 	mtmod
;; 	)
;; 
;; (include "common_records.scm")

(define configf:imports "(import commonmod configfmod processmod (prefix mtargs args:))")


(define (configf:process-line l ht allow-system #!key (linenum #f))
  (let loop ((res l))
    (if (string? res)
	(let ((matchdat (string-search configf:var-expand-regex res)))