Index: archive.scm ================================================================== --- archive.scm +++ archive.scm @@ -21,10 +21,13 @@ (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 format md5 message-digest srfi-18) (declare (unit archive)) (declare (uses db)) (declare (uses common)) + +(declare (uses configfmod)) +(import configfmod) (declare (uses commonmod)) (import commonmod) (declare (uses dbmod)) Index: dashboard-context-menu.scm ================================================================== --- dashboard-context-menu.scm +++ dashboard-context-menu.scm @@ -42,10 +42,13 @@ ;; (declare (uses filedb)) (declare (uses subrun)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) (include "common_records.scm") Index: dashboard-tests.scm ================================================================== --- dashboard-tests.scm +++ dashboard-tests.scm @@ -41,10 +41,13 @@ ;; (declare (uses filedb)) (declare (uses subrun)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) (include "common_records.scm") Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -50,10 +50,14 @@ (declare (uses commonmod)) (import commonmod) (declare (uses commonmod.import)) +(declare (uses configfmod)) +(import configfmod) +(declare (uses configfmod.import)) + (declare (uses dcommonmod)) (import dcommonmod) (declare (uses dcommonmod.import)) (declare (uses apimod)) @@ -64,14 +68,10 @@ ;; (declare (uses dbmod)) (import dbmod) ;; (declare (uses dbmod.import)) -(declare (uses configfmod)) -(import configfmod) -(declare (uses configfmod.import)) - (include "common_records.scm") (include "db_records.scm") (include "run_records.scm") (include "task_records.scm") (include "megatest-version.scm") Index: db.scm ================================================================== --- db.scm +++ db.scm @@ -37,10 +37,13 @@ (declare (uses client)) (declare (uses mt)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) (include "common_records.scm") Index: dcommonmod.scm ================================================================== --- dcommonmod.scm +++ dcommonmod.scm @@ -18,12 +18,11 @@ ;;====================================================================== (declare (unit dcommonmod)) (declare (uses commonmod)) -;; (declare (uses commonmod)) -;; (declare (uses ulex)) +(declare (uses configfmod)) (module dcommonmod * (import scheme chicken data-structures extras) @@ -30,11 +29,11 @@ (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69) (import commonmod) -;; (import (prefix ulex ulex:)) +(import configfmod) ;;====================================================================== ;; COMMONDAT ;;====================================================================== Index: ezsteps.scm ================================================================== --- ezsteps.scm +++ ezsteps.scm @@ -30,10 +30,13 @@ ;; (declare (uses sdb)) ;; (declare (uses filedb)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) (include "common_records.scm") Index: http-transport.scm ================================================================== --- http-transport.scm +++ http-transport.scm @@ -1,6 +1,5 @@ - ;; Copyright 2006-2012, Matthew Welland. ;; ;; This file is part of Megatest. ;; ;; Megatest is free software: you can redistribute it and/or modify @@ -38,10 +37,13 @@ (declare (uses portlogger)) (declare (uses rmt)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) (include "common_records.scm") Index: items.scm ================================================================== --- items.scm +++ items.scm @@ -24,10 +24,13 @@ (declare (unit items)) (declare (uses common)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (include "common_records.scm") ;; Puts out all combinations (define (process-itemlist hierdepth curritemkey itemlist) Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -35,17 +35,17 @@ (declare (uses db)) (declare (uses ezsteps)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) -(declare (uses configfmod)) -(import configfmod) - (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "megatest-fossil-hash.scm") Index: mt.scm ================================================================== --- mt.scm +++ mt.scm @@ -31,10 +31,13 @@ (declare (uses rmt)) ;; (declare (uses filedb)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) (include "common_records.scm") Index: newdashboard.scm ================================================================== --- newdashboard.scm +++ newdashboard.scm @@ -47,10 +47,14 @@ ;; (declare (uses tree)) ;; ;; (include "common_records.scm") ;; (include "db_records.scm") ;; (include "key_records.scm") + +(declare (uses configfmod)) +(import configfmod) + (define help (conc "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " license GPL, Copyright (C) Matt Welland 2011 Index: portlogger.scm ================================================================== --- portlogger.scm +++ portlogger.scm @@ -25,10 +25,13 @@ (declare (unit portlogger)) (declare (uses db)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) ;; lsof -i Index: subrun.scm ================================================================== --- subrun.scm +++ subrun.scm @@ -33,10 +33,13 @@ ;;(declare (uses archive)) ;; (declare (uses filedb)) (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) ;;(include "common_records.scm") Index: tasks.scm ================================================================== --- tasks.scm +++ tasks.scm @@ -29,10 +29,13 @@ ;; (import pgdb) ;; pgdb is a module (declare (uses commonmod)) (import commonmod) + +(declare (uses configfmod)) +(import configfmod) (declare (uses dbmod)) (import dbmod) (include "task_records.scm") Index: tests/unittests/all-rmt.scm ================================================================== --- tests/unittests/all-rmt.scm +++ tests/unittests/all-rmt.scm @@ -39,19 +39,22 @@ (use trace) (trace rmt:login db:login rmt:send-receive + rmt:send-receive-no-auto-client-setup rmtmod:calc-ro-mode create-remote-record rmt:open-qry-close-locally common:force-server? server:check-if-running server:record->id extras-case-11 extras-transport-failed extras-transport-succeded + http-transport:close-connections + http-transport:client-api-send-receive ) (print "start dir: " (current-directory)) (define toppath (current-directory))