;;;; 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
