Megatest

;;======================================================================
;; move debug stuff to separate module then put these back where they belong
;;======================================================================
;;======================================================================
;; lookup routines - replicated from configf
;;======================================================================

(define (configf:lookup cfgdat section var)
  (if (hash-table? cfgdat)
      (let ((sectdat (hash-table-ref/default cfgdat section '())))
	(if (null? sectdat)
	    #f
	    (let ((match (assoc var sectdat)))
	      (if match ;; (and match (list? match)(> (length match) 1))
		  (cadr match)
		  #f))
	    ))
      #f))

(define (configf:assoc-safe-add alist key val #!key (metadata #f))
  (let ((newalist (filter (lambda (x)(not (equal? key (car x)))) alist)))
    (append newalist (list (if metadata
			       (list key val metadata)
			       (list key val))))))

		     (fname (if (> (length dat-pair) 2)(caddr dat-pair) #f)))
		(if fname (print "# " var "=>" fname))
		(print var " " val)))
	    section-dat))) ;;       (print "section-dat: " section-dat))
   (hash-table->alist data)))


(define (configf:lookup cfgdat section var)
  (if (hash-table? cfgdat)
      (let ((sectdat (hash-table-ref/default cfgdat section '())))
	(if (null? sectdat)
	    #f
	    (let ((match (assoc var sectdat)))
	      (if match ;; (and match (list? match)(> (length match) 1))
		  (cadr match)
		  #f))
	    ))
      #f))

;; if 
(define (configf:read-alist fname)
  (handle-exceptions
      exn
    (begin
      (debug:print 0 *default-log-port* "read of alist " fname " failed. exn=" exn)
      #f)

;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;     GNU General Public License for more details.
;; 
;;     You should have received a copy of the GNU General Public License
;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
;;

;; (include "common.scm")
(include "megatest-version.scm")
(use (prefix sqlite3 sqlite3:)
     srfi-1 posix regex regex-case
     srfi-69 (prefix base64 base64:) apropos json http-client
     directory-utils typed-records http-client srfi-18 extras format
     sparse-vectors)

;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use readline)

(declare (uses common))
;; (declare (uses megatest-version))
(declare (uses margsmod))
(import margsmod)
(declare (uses margsmod))
(import margsmod)
(declare (uses margsmod.import))

(declare (uses debugprint))
(import debugprint)
(declare (uses debugprint.import))

(declare (uses runs))
(declare (uses launch))
(declare (uses server))
(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))

(declare (uses commonmod))
(import commonmod)
(declare (uses commonmod.import))

(declare (uses items))
(import items)
(declare (uses items.import))

(declare (uses ods))
(import ods)
(declare (uses tests))
(declare (uses genexample))
(declare (uses db))
(declare (uses ods.import))

(declare (uses dbmod))
(import dbmod)
(declare (uses dbmod.import))

(declare (uses tdb))
(declare (uses mt))
(declare (uses pgdb))
(import pgdb)
(declare (uses pgdb.import))

(declare (uses tasks)) ;; only used for debugging.
(import tasks)
(declare (uses tasks.import))

(declare (uses env))
(declare (uses diff-report))
(declare (uses apimod))
(import apimod)
(declare (uses apimod.import))

(declare (uses portlogger))
(import portlogger)
(declare (uses portlogger.import))
;; Needed for repl even if not used here in megatest.scm
;; ORDER MATTERS!

(declare (uses tdb))
(import tdb)
(declare (uses tdb.import))

(declare (uses rmtmod))
(import rmtmod)
(declare (uses rmtmod.import))

(declare (uses client))
(import client)
(declare (uses client.import))

(declare (uses commonmod))
(declare (uses debugprint))
(import commonmod)
(import debugprint)
(declare (uses commonmod.import))

(declare (uses configfmod))
(import configfmod)
(declare (uses configfmod.import))

(declare (uses ods))
(import ods)
(declare (uses ods.import))

(declare (uses dbmod))
(import dbmod)
(declare (uses dbmod.import))

(declare (uses servermod))
(import servermod)
(declare (uses servermod.import))


;; (include "common.scm")
(include "megatest-version.scm")

(declare (uses apimod))
(import apimod)
(declare (uses apimod.import))
(declare (uses common))
;; (declare (uses megatest-version))

(declare (uses runs))
(declare (uses launch))
(declare (uses server))

(declare (uses rmtmod))
(import rmtmod)
(declare (uses rmtmod.import))
(declare (uses tests))
(declare (uses genexample))
(declare (uses db))

(declare (uses tdb))
(declare (uses mt))

(declare (uses env))
(declare (uses diff-report))

;; Needed for repl even if not used here in megatest.scm
;; ORDER MATTERS!


(define *db* #f) ;; this is only for the repl, do not use in general!!!!

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "megatest-fossil-hash.scm")

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)
     readline apropos json http-client directory-utils typed-records
     http-client srfi-18 extras format)

;; Added for csv stuff - will be removed
;;
(use sparse-vectors)

(require-library mutils)

(define *usage-log-file* #f)    ;; put path to file for logging usage in this var in the ~/.megatestrc file
(define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file

;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file
;;