Megatest

     z3)

(import stml2
	)

(module commonmod
	(








































	 ;; globals
	 *already-seen-runconfig-info*
	 *common:badly-ended-states*
	 *common:dont-roll-up-states*
	 *common:ended-states*
	 *common:not-started-ok-statuses*
	 *common:running-states*
	 *common:std-states*
	 *common:std-statuses*
	 *common:well-ended-states*
	 *configdat*
	 *configinfo*
	 *configstatus*
	 *db-access-allowed*
	 *db-api-call-time*
	 *db-cache-path*
	 *db-keys*
	 *default-area-tag*
	 *env-vars-by-run-id*
	 *globalexitstatus*
	 *host-loads*
	 *keyvals*
	 *last-launch*
	 *launch-setup-mutex*
	 *logged-in-clients*
	 *my-client-signature*
	 *on-exit-procs*
	 *passnum*
	 *pkts-info*
	 *pre-reqs-met-cache*
	 *runconfigdat*
	 *runremote*
	 *server-id*
	 *server-info*
	 *target*
	 *task-db*
	 *test-meta-updated*
	 *testconfigs*
	 *time-to-exit*
	 *toppath*
	 *toptest-paths*
	 *transport-type*


	 *common:this-exe-dir*

	 common:with-orig-env
	 alist->env-vars
	 any->number
	 any->number-if-possible
	 assoc/default
	 client:get-signature

	 
	 common:alist-ref/default
	 common:clear-caches

	 common:dir-clean-up
	 common:directory-exists?
	 common:directory-writable?
	 common:fail-safe
	 common:file-exists?
	 common:find-local-megatest
	 common:generic-ssh
	 common:get-area-path-signature
	 common:get-color-from-status
	 common:get-cpu-load
	 common:get-create-writeable-dir
	 common:get-fields
	 common:get-intercept
	 common:get-megatest-exe
	 common:get-megatest-exe-dir
	 common:get-megatest-exe-path
	 common:get-mtexe
	 common:get-normalized-cpu-load
	 common:get-normalized-cpu-load
	 common:get-num-cpus
	 common:get-param-mapping
	 common:get-signature
	 common:get-toppath
	 common:hms-string->seconds
	 common:htree->html
	 common:human-time
	 common:in-running-test?
	 common:join-backgrounded-threads
	 common:lazy-sqlite-db-modification-time
	 common:list->htree
	 common:list-or-null
	 common:logpro-exit-code->status-sym
	 common:low-noise-print
	 common:make-tmpdir-name
	 common:max






	 common:min-max


	 common:nice-path


	 common:pkts-spec
	 common:raw-get-remote-host-load
	 common:read-encoded-string
	 common:real-path
	 common:send-thunk-to-background-thread
	 common:simple-file-lock
	 common:simple-file-lock-and-wait
	 common:simple-file-release-lock
	 common:sparse-list-generate-index
	 common:special-sort
	 common:steps-can-proceed-given-status-sym
	 common:sum
	 common:to-alist
	 common:unix-ping
	 common:val->alist
	 common:version-signature
	 common:which
	 common:with-env-vars
	 common:without-vars
	 common:worse-status-sym
	 commonmod:get-cpu-load
	 commonmod:is-test-alive
	 db:mintest-get-event_time
	 db:patt->like
	 
	 db:test-data-get-category
	 db:test-data-get-comment
	 db:test-data-get-expected
	 db:test-data-get-id
	 db:test-data-get-last_update
	 db:test-data-get-status
	 db:test-data-get-test_id
	 db:test-data-get-tol
	 db:test-data-get-type
	 db:test-data-get-units
	 db:test-data-get-value
	 db:test-data-get-variable
	 db:test-get-archived
	 db:test-get-comment


	 db:test-get-cpuload
	 db:test-get-diskfree
	 db:test-get-event_time
	 db:test-get-final_logf
	 db:test-get-fullname
	 db:test-get-host
	 db:test-get-id
	 db:test-get-is-toplevel
	 db:test-get-item-path
	 db:test-get-last_update
	 db:test-get-process_id
	 db:test-get-run_duration
	 db:test-get-run_id
	 db:test-get-rundir
	 db:test-get-state
	 db:test-get-status
	 db:test-get-testname
	 db:test-get-uname
	 db:test-make-full-name
	 db:test-set-state!
	 db:test-set-status!
	 db:test-set-testname!
	 
	 db:testmeta-get-author
	 db:testmeta-get-description
	 db:testmeta-get-owner
	 db:testmeta-get-reviewed
	 db:testmeta-get-tags
	 
	 get-area-path-signature
	 get-normalized-cpu-load
	 getenv
	 host-last-cpuload
	 host-last-cpuload-set!
	 host-last-update
	 host-last-update-set!
	 host-last-used
	 host-last-used-set!
	 host-reachable
	 host-reachable-set!
	 item-list->path
	 keys->keystr
	 keys->valslots
	 keys:config-get-fields
	 keys:target->keyval
	 keys:target-set-args
	 make-db:testmeta
	 make-host
	 make-sparse-array
	 make-tests:testqueue
	 megatest-fossil-hash
	 megatest-version
	 number-of-processes-running
	 patt-list-match
	 rmt:transport-mode
	 runs:get-std-run-fields
	 safe-setenv
	 save-environment-as-files
	 sdb:qry
	 seconds->hr-min-sec
	 seconds->quarter
	 seconds->time-string
	 seconds->work-week/day
	 seconds->work-week/day-time
	 seconds->year-work-week/day-time
	 setenv
	 sparse-array-ref
	 sparse-array-set!
	 status-sym->string
	 stop-the-train
	 tasks:wait-on-journal
	 
	 tdb:step-get-comment
	 tdb:step-get-event_time
	 tdb:step-get-id
	 tdb:step-get-last_update
	 tdb:step-get-logfile
	 tdb:step-get-state
	 tdb:step-get-status
	 tdb:step-get-stepname
	 tdb:step-get-test_id
	 tdb:steps-table-get-end
	 tdb:steps-table-get-log-file
	 tdb:steps-table-get-runtime
	 tdb:steps-table-get-start
	 tdb:steps-table-get-status
	 tdb:steps-table-get-stepname


	 
	 tests:glob-like-match
	 tests:lookup-itemmap
	 tests:match
	 tests:match->sqlqry

	 tests:testqueue-get-item_path
	 tests:testqueue-get-itemdat
	 tests:testqueue-get-items
	 tests:testqueue-get-priority
	 tests:testqueue-get-testconfig
	 tests:testqueue-get-testname
	 tests:testqueue-get-waitons
















































	 tests:testqueue-set-item_path!
	 tests:testqueue-set-itemdat!























	 tests:testqueue-set-items!
	 tests:testqueue-set-priority!

	 

	 val->alist











	 )
	
(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken

                 (string-match "^(.*/csi|csi)$" (car argv))
                 (string-match "^-(s|ss|sx|script)$" (cadr argv)))
            (caddr argv))
           (else (car argv))))
         (fullpath (realpath this-script)))
    fullpath))

;; get rid of these, no need to slow down start up
;;======================================================================

(define *common:this-exe-fullpath* (common:get-this-exe-fullpath))
(define *common:this-exe-dir*      (pathname-directory *common:this-exe-fullpath*))
(define *common:this-exe-name*     (pathname-strip-directory *common:this-exe-fullpath*))

(define (common:get-sync-lock-filepath)