;;;; commonmod.import.scm - GENERATED BY CHICKEN 4.13.0 -*- Scheme -*-
(eval '(import
scheme
chicken
margsmod
debugprint
configfmod
data-structures
extras
files
ports
(prefix base64 base64:)
(prefix sqlite3 sqlite3:)
srfi-18
(prefix dbi dbi:)
directory-utils
hostinfo
format
matchable
md5
message-digest
pkts
posix
regex
regex-case
sparse-vectors
srfi-1
srfi-4
srfi-13
srfi-69
stack
stml2
typed-records
z3
postgresql
posix-extras
pathname-expand
files))
(##sys#register-compiled-module
'commonmod
(list)
'((launch:get-cache-file-paths . commonmod#launch:get-cache-file-paths)
(launch:setup-body . commonmod#launch:setup-body)
(launch:setup . commonmod#launch:setup)
(common:run-sync? . commonmod#common:run-sync?)
(common:on-homehost? . commonmod#common:on-homehost?)
(common:wait-for-homehost-load . commonmod#common:wait-for-homehost-load)
(common:get-homehost . commonmod#common:get-homehost)
(server:get-best-guess-address . commonmod#server:get-best-guess-address)
(tests:get-tests-search-path . commonmod#tests:get-tests-search-path)
(common:get-linktree . commonmod#common:get-linktree)
(common:save-pkt . commonmod#common:save-pkt)
(common:load-pkts-to-db . commonmod#common:load-pkts-to-db)
(common:get-disk-with-most-free-space
.
commonmod#common:get-disk-with-most-free-space)
(common:check-db-dir-and-exit-if-insufficient
.
commonmod#common:check-db-dir-and-exit-if-insufficient)
(common:check-db-dir-space . commonmod#common:check-db-dir-space)
(common:with-queue-db . commonmod#common:with-queue-db)
(common:get-pkts-dirs . commonmod#common:get-pkts-dirs)
(get-free-inodes . commonmod#get-free-inodes)
(common:check-space-in-dir . commonmod#common:check-space-in-dir)
(get-df . commonmod#get-df)
(common:wait-for-normalized-load
.
commonmod#common:wait-for-normalized-load)
(common:wait-for-cpuload . commonmod#common:wait-for-cpuload)
(common:print-delay-table . commonmod#common:print-delay-table)
(common:get-delay . commonmod#common:get-delay)
(common:rotate-logs . commonmod#common:rotate-logs)
(common:in-running-test? . commonmod#common:in-running-test?)
(common:force-server? . commonmod#common:force-server?)
(common:use-cache? . commonmod#common:use-cache?)
(common:args-get-target . commonmod#common:args-get-target)
(get-with-default . commonmod#get-with-default)
(common:args-get-runname . commonmod#common:args-get-runname)
(common:htree->html . commonmod#common:htree->html)
(tasks:kill-server . commonmod#tasks:kill-server)
(tests:lookup-itemmap . commonmod#tests:lookup-itemmap)
(process:get-sub-pids . commonmod#process:get-sub-pids)
(process:alive-on-host? . commonmod#process:alive-on-host?)
(process:alive? . commonmod#process:alive?)
(process:children . commonmod#process:children)
(run-n-wait . commonmod#run-n-wait)
(port-proc->list . commonmod#port-proc->list)
(process:cmd-run-proc-each-line-alt
.
commonmod#process:cmd-run-proc-each-line-alt)
(process:cmd-run-proc-each-line . commonmod#process:cmd-run-proc-each-line)
(process:cmd-run-with-stderr-and-exitcode->list
.
commonmod#process:cmd-run-with-stderr-and-exitcode->list)
(process:cmd-run-with-stderr->list
.
commonmod#process:cmd-run-with-stderr->list)
(process:conservative-read . commonmod#process:conservative-read)
(common:join-backgrounded-threads
.
commonmod#common:join-backgrounded-threads)
(common:send-thunk-to-background-thread
.
commonmod#common:send-thunk-to-background-thread)
(*common:thread-punchlist* . commonmod#*common:thread-punchlist*)
(common:get-pkt-times . commonmod#common:get-pkt-times)
(common:get-pkt-alists . commonmod#common:get-pkt-alists)
(common:pkts-spec . commonmod#common:pkts-spec)
(hh:set! . commonmod#hh:set!)
(hh:get . commonmod#hh:get)
(hh:make-hh . commonmod#hh:make-hh)
(launch:is-test-alive . commonmod#launch:is-test-alive)
(item-list->path . commonmod#item-list->path)
(keys->valslots . commonmod#keys->valslots)
(db:multi-pattern-apply . commonmod#db:multi-pattern-apply)
(db:convert-test-itempath . commonmod#db:convert-test-itempath)
(db:compare-itempaths . commonmod#db:compare-itempaths)
(tests:match->sqlqry . commonmod#tests:match->sqlqry)
(db:patt->like . commonmod#db:patt->like)
(tests:match . commonmod#tests:match)
(tests:glob-like-match . commonmod#tests:glob-like-match)
(tests:cache-regexp . commonmod#tests:cache-regexp)
(common:get-color-from-status . commonmod#common:get-color-from-status)
(common:iup-color->rgb-hex . commonmod#common:iup-color->rgb-hex)
(common:name->iup-color . commonmod#common:name->iup-color)
(common:without-vars . commonmod#common:without-vars)
(common:with-orig-env . commonmod#common:with-orig-env)
(*common:orig-env* . commonmod#*common:orig-env*)
(alist->env-vars . commonmod#alist->env-vars)
(common:get-param-mapping . commonmod#common:get-param-mapping)
(common:propogate-mt-vars-to-subrun
.
commonmod#common:propogate-mt-vars-to-subrun)
(save-environment-as-files . commonmod#save-environment-as-files)
(bb-check-path . commonmod#bb-check-path)
(common:dir-clean-up . commonmod#common:dir-clean-up)
(common:file-find-rule . commonmod#common:file-find-rule)
(common:spec-string->list-of-specs
.
commonmod#common:spec-string->list-of-specs)
(get-unix-inodes . commonmod#get-unix-inodes)
(get-unix-df . commonmod#get-unix-df)
(common:get-disk-space-used . commonmod#common:get-disk-space-used)
(common:real-path . commonmod#common:real-path)
(get-uname . commonmod#get-uname)
(common:get-num-cpus . commonmod#common:get-num-cpus)
(common:unix-ping . commonmod#common:unix-ping)
(common:get-normalized-cpu-load-raw
.
commonmod#common:get-normalized-cpu-load-raw)
(common:get-normalized-cpu-load . commonmod#common:get-normalized-cpu-load)
(common:get-cpu-load . commonmod#common:get-cpu-load)
(common:raw-get-remote-host-load
.
commonmod#common:raw-get-remote-host-load)
(common:write-cached-info . commonmod#common:write-cached-info)
(common:get-cached-info . commonmod#common:get-cached-info)
(get-cpu-load . commonmod#get-cpu-load)
(common:get-intercept . commonmod#common:get-intercept)
(common:val->alist . commonmod#common:val->alist)
(common:lazy-convert . commonmod#common:lazy-convert)
(common:sparse-list-generate-index
.
commonmod#common:sparse-list-generate-index)
(common:htree->atree . commonmod#common:htree->atree)
(common:list->htree . commonmod#common:list->htree)
(common:sum . commonmod#common:sum)
(common:min-max . commonmod#common:min-max)
(common:max . commonmod#common:max)
(common:list-is-sublist . commonmod#common:list-is-sublist)
(common:get-full-test-name . commonmod#common:get-full-test-name)
(keys:config-get-fields . commonmod#keys:config-get-fields)
(common:get-fields . commonmod#common:get-fields)
(common:list-or-null . commonmod#common:list-or-null)
(common:bash-glob . commonmod#common:bash-glob)
(common:get-youngest . commonmod#common:get-youngest)
(common:get-create-writeable-dir
.
commonmod#common:get-create-writeable-dir)
(common:get-install-area . commonmod#common:get-install-area)
(common:which . commonmod#common:which)
(patt-list-match . commonmod#patt-list-match)
(any->number-if-possible . commonmod#any->number-if-possible)
(any->number . commonmod#any->number)
(special-signal-handler . commonmod#special-signal-handler)
(std-signal-handler . commonmod#std-signal-handler)
(common:human-time . commonmod#common:human-time)
(*wdnum*mutex . commonmod#*wdnum*mutex)
(*wdnum* . commonmod#*wdnum*)
(common:get-toppath . commonmod#common:get-toppath)
(assoc/default . commonmod#assoc/default)
(*logging* . commonmod#*logging*)
(*verbosity* . commonmod#*verbosity*)
(common:debug-setup . commonmod#common:debug-setup)
(common:special-sort . commonmod#common:special-sort)
(*common:not-started-ok-statuses*
.
commonmod#*common:not-started-ok-statuses*)
(*common:cant-run-states* . commonmod#*common:cant-run-states*)
(*common:running-states* . commonmod#*common:running-states*)
(*common:well-ended-states* . commonmod#*common:well-ended-states*)
(*common:badly-ended-states* . commonmod#*common:badly-ended-states*)
(*common:ended-states* . commonmod#*common:ended-states*)
(common:status>? . commonmod#common:status>?)
(*common:std-statuses* . commonmod#*common:std-statuses*)
(*common:dont-roll-up-states* . commonmod#*common:dont-roll-up-states*)
(*common:std-states* . commonmod#*common:std-states*)
(common:read-encoded-string . commonmod#common:read-encoded-string)
(common:get-megatest-exe . commonmod#common:get-megatest-exe)
(common:low-noise-print . commonmod#common:low-noise-print)
(common:alist-ref/default . commonmod#common:alist-ref/default)
(common:to-alist . commonmod#common:to-alist)
(common:simple-file-release-lock
.
commonmod#common:simple-file-release-lock)
(common:simple-file-lock-and-wait
.
commonmod#common:simple-file-lock-and-wait)
(common:simple-file-lock . commonmod#common:simple-file-lock)
(common:db-access-allowed? . commonmod#common:db-access-allowed?)
(common:db-block-further-queries
.
commonmod#common:db-block-further-queries)
(sparse-array-set! . commonmod#sparse-array-set!)
(sparse-array-ref . commonmod#sparse-array-ref)
(sparse-array? . commonmod#sparse-array?)
(make-sparse-array . commonmod#make-sparse-array)
(common:snapshot-file . commonmod#common:snapshot-file)
(*last-launch* . commonmod#*last-launch*)
(*fdb* . commonmod#*fdb*)
(sdb:qry . commonmod#sdb:qry)
(common:clear-caches . commonmod#common:clear-caches)
(common:logpro-exit-code->test-status
.
commonmod#common:logpro-exit-code->test-status)
(status-sym->string . commonmod#status-sym->string)
(common:steps-can-proceed-given-status-sym
.
commonmod#common:steps-can-proceed-given-status-sym)
(common:worse-status-sym . commonmod#common:worse-status-sym)
(common:logpro-exit-code->status-sym
.
commonmod#common:logpro-exit-code->status-sym)
(*common:logpro-exit-code->status-sym-alist*
.
commonmod#*common:logpro-exit-code->status-sym-alist*)
(common:find-local-megatest . commonmod#common:find-local-megatest)
(*common:this-exe-name* . commonmod#*common:this-exe-name*)
(*common:this-exe-dir* . commonmod#*common:this-exe-dir*)
(*common:this-exe-fullpath* . commonmod#*common:this-exe-fullpath*)
(common:get-this-exe-fullpath . commonmod#common:get-this-exe-fullpath)
(realpath . commonmod#realpath)
(##sys#expand-home-path . |commonmod#\x03sysexpand-home-path|)
(*pre-reqs-met-cache* . commonmod#*pre-reqs-met-cache*)
(*runconfigs* . commonmod#*runconfigs*)
(*testconfigs* . commonmod#*testconfigs*)
(*env-vars-by-run-id* . commonmod#*env-vars-by-run-id*)
(*host-loads* . commonmod#*host-loads*)
(*triggers-mutex* . commonmod#*triggers-mutex*)
(*homehost-mutex* . commonmod#*homehost-mutex*)
(*launch-setup-mutex* . commonmod#*launch-setup-mutex*)
(*run-info-cache* . commonmod#*run-info-cache*)
(*test-info* . commonmod#*test-info*)
(*test-ids* . commonmod#*test-ids*)
(*test-paths* . commonmod#*test-paths*)
(*toptest-paths* . commonmod#*toptest-paths*)
(*keyvals* . commonmod#*keyvals*)
(*keys* . commonmod#*keys*)
(*target* . commonmod#*target*)
(*rpc:listener* . commonmod#*rpc:listener*)
(*rmt-mutex* . commonmod#*rmt-mutex*)
(*send-receive-mutex* . commonmod#*send-receive-mutex*)
(*server-overloaded* . commonmod#*server-overloaded*)
(*heartbeat-mutex* . commonmod#*heartbeat-mutex*)
(*home-host* . commonmod#*home-host*)
(*server-kind-run* . commonmod#*server-kind-run*)
(*run-id* . commonmod#*run-id*)
(*server-run* . commonmod#*server-run*)
(*time-to-exit* . commonmod#*time-to-exit*)
(*server-info* . commonmod#*server-info*)
(*server-id* . commonmod#*server-id*)
(*logged-in-clients* . commonmod#*logged-in-clients*)
(*runremote* . commonmod#*runremote*)
(*transport-type* . commonmod#*transport-type*)
(*my-client-signature* . commonmod#*my-client-signature*)
(*no-sync-db* . commonmod#*no-sync-db*)
(*db-api-call-time* . commonmod#*db-api-call-time*)
(*db-transaction-mutex* . commonmod#*db-transaction-mutex*)
(*db-access-mutex* . commonmod#*db-access-mutex*)
(*db-access-allowed* . commonmod#*db-access-allowed*)
(*task-db* . commonmod#*task-db*)
(*db-multi-sync-mutex* . commonmod#*db-multi-sync-mutex*)
(*db-sync-in-progress* . commonmod#*db-sync-in-progress*)
(*db-last-sync* . commonmod#*db-last-sync*)
(*db-write-access* . commonmod#*db-write-access*)
(*db-last-access* . commonmod#*db-last-access*)
(*db-stats-mutex* . commonmod#*db-stats-mutex*)
(*db-stats* . commonmod#*db-stats*)
(*dbstruct-db* . commonmod#*dbstruct-db*)
(*default-area-tag* . commonmod#*default-area-tag*)
(*time-zero* . commonmod#*time-zero*)
(*passnum* . commonmod#*passnum*)
(*globalexitstatus* . commonmod#*globalexitstatus*)
(*test-meta-updated* . commonmod#*test-meta-updated*)
(*already-seen-runconfig-info* . commonmod#*already-seen-runconfig-info*)
(*configstatus* . commonmod#*configstatus*)
(*configdat* . commonmod#*configdat*)
(*runconfigdat* . commonmod#*runconfigdat*)
(*pkts-info* . commonmod#*pkts-info*)
(*user-hash-data* . commonmod#*user-hash-data*)
(alist->cxt . commonmod#alist->cxt)
(cxt->alist . commonmod#cxt->alist)
(update-cxt . commonmod#update-cxt)
(set-cxt! . commonmod#set-cxt!)
(make-cxt . commonmod#make-cxt)
(cxt-cmutex . commonmod#cxt-cmutex)
(cxt-cmutex-set! . commonmod#cxt-cmutex-set!)
(cxt-taskdb . commonmod#cxt-taskdb)
(cxt-taskdb-set! . commonmod#cxt-taskdb-set!)
(cxt? . commonmod#cxt?)
(make-cxt . commonmod#make-cxt)
(get-file-descriptor-count . commonmod#get-file-descriptor-count)
(user . commonmod#user)
(home . commonmod#home)
(common:fail-safe . commonmod#common:fail-safe)
(common:lazy-sqlite-db-modification-time
.
commonmod#common:lazy-sqlite-db-modification-time)
(common:lazy-modification-time . commonmod#common:lazy-modification-time)
(common:get-signature . commonmod#common:get-signature)
(common:get-area-path-signature . commonmod#common:get-area-path-signature)
(keys:make-key/field-string . commonmod#keys:make-key/field-string)
(keys:target->keyval . commonmod#keys:target->keyval)
(keys:target-set-args . commonmod#keys:target-set-args)
(args:usage . margsmod#args:usage)
(keys->keystr . commonmod#keys->keystr)
(common:extended-cron . commonmod#common:extended-cron)
(common:cron-event . commonmod#common:cron-event)
(common:cron-expand . commonmod#common:cron-expand)
(common:expand-cron-slash . commonmod#common:expand-cron-slash)
(common:find-start-mark-and-mark-delta
.
commonmod#common:find-start-mark-and-mark-delta)
(common:date-time->seconds . commonmod#common:date-time->seconds)
(seconds->quarter . commonmod#seconds->quarter)
(seconds->year-week/day-time . commonmod#seconds->year-week/day-time)
(seconds->year-work-week/day-time
.
commonmod#seconds->year-work-week/day-time)
(seconds->year-work-week/day . commonmod#seconds->year-work-week/day)
(seconds->work-week/day . commonmod#seconds->work-week/day)
(seconds->work-week/day-time . commonmod#seconds->work-week/day-time)
(seconds->time-string . commonmod#seconds->time-string)
(seconds->hr-min-sec . commonmod#seconds->hr-min-sec)
(common:hms-string->seconds . commonmod#common:hms-string->seconds)
(common:directory-writable? . commonmod#common:directory-writable?)
(common:directory-exists? . commonmod#common:directory-exists?)
(common:file-exists? . commonmod#common:file-exists?)
(common:false-on-exception . commonmod#common:false-on-exception)
(debug:setup . commonmod#debug:setup)
(get-cfg-areas . commonmod#get-cfg-areas)
(path->area-record . commonmod#path->area-record)
(get-area-path-signature . commonmod#get-area-path-signature)
(val->alist . commonmod#val->alist)
(lazy-convert . commonmod#lazy-convert)
(get-section . commonmod#get-section)
(get-key-list . commonmod#get-key-list)
(lookup . commonmod#lookup)
(common:version-signature . commonmod#common:version-signature)
(common:get-full-version . commonmod#common:get-full-version)
(alist->host . commonmod#alist->host)
(host->alist . commonmod#host->alist)
(update-host . commonmod#update-host)
(set-host! . commonmod#set-host!)
(make-host . commonmod#make-host)
(host-last-cpuload . commonmod#host-last-cpuload)
(host-last-cpuload-set! . commonmod#host-last-cpuload-set!)
(host-last-used . commonmod#host-last-used)
(host-last-used-set! . commonmod#host-last-used-set!)
(host-last-update . commonmod#host-last-update)
(host-last-update-set! . commonmod#host-last-update-set!)
(host-reachable . commonmod#host-reachable)
(host-reachable-set! . commonmod#host-reachable-set!)
(host? . commonmod#host?)
(make-host . commonmod#make-host)
(alist->remote . commonmod#alist->remote)
(remote->alist . commonmod#remote->alist)
(update-remote . commonmod#update-remote)
(set-remote! . commonmod#set-remote!)
(make-remote . commonmod#make-remote)
(remote-ro-mode-checked . commonmod#remote-ro-mode-checked)
(remote-ro-mode-checked-set! . commonmod#remote-ro-mode-checked-set!)
(remote-ro-mode . commonmod#remote-ro-mode)
(remote-ro-mode-set! . commonmod#remote-ro-mode-set!)
(remote-force-server . commonmod#remote-force-server)
(remote-force-server-set! . commonmod#remote-force-server-set!)
(remote-server-timeout . commonmod#remote-server-timeout)
(remote-server-timeout-set! . commonmod#remote-server-timeout-set!)
(remote-transport . commonmod#remote-transport)
(remote-transport-set! . commonmod#remote-transport-set!)
(remote-conndat . commonmod#remote-conndat)
(remote-conndat-set! . commonmod#remote-conndat-set!)
(remote-last-server-check . commonmod#remote-last-server-check)
(remote-last-server-check-set! . commonmod#remote-last-server-check-set!)
(remote-server-info . commonmod#remote-server-info)
(remote-server-info-set! . commonmod#remote-server-info-set!)
(remote-server-id . commonmod#remote-server-id)
(remote-server-id-set! . commonmod#remote-server-id-set!)
(remote-server-url . commonmod#remote-server-url)
(remote-server-url-set! . commonmod#remote-server-url-set!)
(remote-hh-dat . commonmod#remote-hh-dat)
(remote-hh-dat-set! . commonmod#remote-hh-dat-set!)
(remote? . commonmod#remote?)
(make-remote . commonmod#make-remote)
(version-signature . commonmod#version-signature)
(get-full-version . commonmod#get-full-version)
(*numcpus-cache* . commonmod#*numcpus-cache*)
(*glob-like-match-cache* . commonmod#*glob-like-match-cache*)
(*number-non-write-queries* . commonmod#*number-non-write-queries*)
(*number-of-writes* . commonmod#*number-of-writes*)
(*db-cache-path* . commonmod#*db-cache-path*)
(*db-keys* . commonmod#*db-keys*)
(*api-process-request-count* . commonmod#*api-process-request-count*)
(*common:denoise* . commonmod#*common:denoise*)
(*max-api-process-requests* . commonmod#*max-api-process-requests*)
(*db-with-db-mutex* . commonmod#*db-with-db-mutex*)
(*configinfo* . commonmod#*configinfo*)
(*toppath* . commonmod#*toppath*)
(megatest-fossil-hash . commonmod#megatest-fossil-hash)
(megatest-version . commonmod#megatest-version)
(common:get-db-tmp-area . commonmod#common:get-db-tmp-area)
(find-and-read-config . commonmod#find-and-read-config)
(get-area-name . commonmod#get-area-name)
(common:get-area-name . commonmod#common:get-area-name)
(common:get-testsuite-name . commonmod#common:get-testsuite-name)
(common:get-sync-lock-filepath . commonmod#common:get-sync-lock-filepath)
(common:get-sync-lock-filepath . commonmod#common:get-sync-lock-filepath)
(*numcpus-cache* . commonmod#*numcpus-cache*)
(*available-db* . commonmod#*available-db*))
(list (cons 'debug:catch-and-dump
(syntax-rules
()
((debug:catch-and-dump proc procname)
(begin
(handle-exceptions
exn
(begin
(print-call-chain (current-error-port))
(with-output-to-port
(current-error-port)
(lambda ()
(print ((condition-property-accessor 'exn 'message) exn))
(print "Callback error in " procname)
(print "Full condition info:\n"
(condition->list exn)))))
(proc))))))
(cons 'common:handle-exceptions
(syntax-rules () ((_ exn errstmt body ...) (begin body ...))))
(cons 'common:debug-handle-exceptions
(syntax-rules
()
((_ debug exn errstmt body ...)
(if debug
(begin body ...)
(handle-exceptions exn errstmt body ...)))))
(cons 'define-simple-syntax
(syntax-rules
()
((_ (name arg ...) body ...)
(define-syntax
name
(syntax-rules () ((name arg ...) (begin body ...))))))))
(list))
;; END OF FILE