Megatest

Artifact [15eb027c94]
Login

Artifact 15eb027c94c0159fdce46911a98f686860b3c60a:


;;;; rmtmod.import.scm - GENERATED BY CHICKEN 4.13.0 -*- Scheme -*-

(eval '(import
         scheme
         chicken
         data-structures
         extras
         ports
         (prefix sqlite3 sqlite3:)
         directory-utils
         intarweb
         matchable
         md5
         message-digest
         uri-common
         spiffy
         spiffy-directory-listing
         spiffy-request-vars
         http-client
         posix
         posix-extras
         regex
         typed-records
         srfi-1
         srfi-13
         srfi-18
         srfi-69
         tcp
         apimod
         commonmod
         debugprint
         dbmod
         configfmod
         margsmod
         portlogger
         items
         tdb))
(##sys#register-compiled-module
  'rmtmod
  (list)
  '((tdb:open-test-db-by-test-id . rmtmod#tdb:open-test-db-by-test-id)
    (tdb:load-logpro-data . rmtmod#tdb:load-logpro-data)
    (tdb:load-test-data . rmtmod#tdb:load-test-data)
    (client:setup-http . rmtmod#client:setup-http)
    (client:setup . rmtmod#client:setup)
    (client:get-signature . rmtmod#client:get-signature)
    (common:get-launcher . rmtmod#common:get-launcher)
    (common:get-least-loaded-host . rmtmod#common:get-least-loaded-host)
    (common:update-host-loads-table . rmtmod#common:update-host-loads-table)
    (common:api-changed? . rmtmod#common:api-changed?)
    (common:version-changed? . rmtmod#common:version-changed?)
    (common:version-db-delta . rmtmod#common:version-db-delta)
    (common:get-last-run-version-number
      .
      rmtmod#common:get-last-run-version-number)
    (common:set-last-run-version . rmtmod#common:set-last-run-version)
    (common:get-last-run-version . rmtmod#common:get-last-run-version)
    (std-exit-procedure . rmtmod#std-exit-procedure)
    (common:get-host-info . rmtmod#common:get-host-info)
    (common:simple-unlock . rmtmod#common:simple-unlock)
    (common:simple-lock . rmtmod#common:simple-lock)
    (common:faux-unlock . rmtmod#common:faux-unlock)
    (common:faux-lock . rmtmod#common:faux-lock)
    (http-transport:launch . rmtmod#http-transport:launch)
    (http-transport:server-shutdown . rmtmod#http-transport:server-shutdown)
    (http-transport:keep-running . rmtmod#http-transport:keep-running)
    (http-transport:client-connect . rmtmod#http-transport:client-connect)
    (http-transport:server-dat-update-last-access
      .
      rmtmod#http-transport:server-dat-update-last-access)
    (http-transport:server-dat-make-url
      .
      rmtmod#http-transport:server-dat-make-url)
    (http-transport:server-dat-get-server-id
      .
      rmtmod#http-transport:server-dat-get-server-id)
    (http-transport:server-dat-get-last-access
      .
      rmtmod#http-transport:server-dat-get-last-access)
    (http-transport:server-dat-get-api-req
      .
      rmtmod#http-transport:server-dat-get-api-req)
    (http-transport:server-dat-get-api-url
      .
      rmtmod#http-transport:server-dat-get-api-url)
    (http-transport:server-dat-get-api-uri
      .
      rmtmod#http-transport:server-dat-get-api-uri)
    (http-transport:server-dat-get-port
      .
      rmtmod#http-transport:server-dat-get-port)
    (http-transport:server-dat-get-iface
      .
      rmtmod#http-transport:server-dat-get-iface)
    (make-http-transport:server-dat . rmtmod#make-http-transport:server-dat)
    (http-transport:close-connections
      .
      rmtmod#http-transport:close-connections)
    (http-transport:client-api-send-receive
      .
      rmtmod#http-transport:client-api-send-receive)
    (http-transport:inc-requests-and-prep-to-close-all-connections
      .
      rmtmod#http-transport:inc-requests-and-prep-to-close-all-connections)
    (http-transport:dec-requests-count-and-close-all-connections
      .
      rmtmod#http-transport:dec-requests-count-and-close-all-connections)
    (http-transport:dec-requests-count
      .
      rmtmod#http-transport:dec-requests-count)
    (http-transport:inc-requests-count
      .
      rmtmod#http-transport:inc-requests-count)
    (http-transport:get-time-to-cleanup
      .
      rmtmod#http-transport:get-time-to-cleanup)
    (*http-connections-next-cleanup* . rmtmod#*http-connections-next-cleanup*)
    (*http-requests-in-progress* . rmtmod#*http-requests-in-progress*)
    (*http-mutex* . rmtmod#*http-mutex*)
    (server:try-running . rmtmod#server:try-running)
    (server:check-server . rmtmod#server:check-server)
    (server:check-if-running . rmtmod#server:check-if-running)
    (server:start-and-wait . rmtmod#server:start-and-wait)
    (server:ping . rmtmod#server:ping)
    (server:run . rmtmod#server:run)
    (server:launch . rmtmod#server:launch)
    (server:expiration-timeout . rmtmod#server:expiration-timeout)
    (server:login . rmtmod#server:login)
    (server:ping-server . rmtmod#server:ping-server)
    (server:kill . rmtmod#server:kill)
    (server:get-num-servers . rmtmod#server:get-num-servers)
    (server:wait-for-server-start-last-flag
      .
      rmtmod#server:wait-for-server-start-last-flag)
    (server:get-client-signature . rmtmod#server:get-client-signature)
    (server:record->url . rmtmod#server:record->url)
    (server:record->id . rmtmod#server:record->id)
    (server:get-rand-best . rmtmod#server:get-rand-best)
    (server:get-first-best . rmtmod#server:get-first-best)
    (server:get-best . rmtmod#server:get-best)
    (server:get-num-alive . rmtmod#server:get-num-alive)
    (server:kind-run . rmtmod#server:kind-run)
    (server:reply . rmtmod#server:reply)
    (server:mk-signature . rmtmod#server:mk-signature)
    (server:make-server-url . rmtmod#server:make-server-url)
    (http-transport:try-start-server . rmtmod#http-transport:try-start-server)
    (http-transport:run . rmtmod#http-transport:run)
    (http-transport:make-server-url . rmtmod#http-transport:make-server-url)
    (extras-transport-succeded . rmtmod#extras-transport-succeded)
    (extras-transport-failed . rmtmod#extras-transport-failed)
    (extras-readonly-mode . rmtmod#extras-readonly-mode)
    (rmt:test-get-archive-block-info . rmtmod#rmt:test-get-archive-block-info)
    (rmt:test-set-archive-block-id . rmtmod#rmt:test-set-archive-block-id)
    (rmt:archive-register-disk . rmtmod#rmt:archive-register-disk)
    (rmt:archive-allocate-testsuite/area-to-block
      .
      rmtmod#rmt:archive-allocate-testsuite/area-to-block)
    (rmt:archive-register-block-name . rmtmod#rmt:archive-register-block-name)
    (rmt:archive-get-allocations . rmtmod#rmt:archive-get-allocations)
    (rmt:no-sync-get-lock . rmtmod#rmt:no-sync-get-lock)
    (rmt:no-sync-del! . rmtmod#rmt:no-sync-del!)
    (rmt:no-sync-get/default . rmtmod#rmt:no-sync-get/default)
    (rmt:no-sync-set . rmtmod#rmt:no-sync-set)
    (rmt:tasks-get-last . rmtmod#rmt:tasks-get-last)
    (rmt:tasks-set-state-given-param-key
      .
      rmtmod#rmt:tasks-set-state-given-param-key)
    (rmt:tasks-add . rmtmod#rmt:tasks-add)
    (rmt:tasks-find-task-queue-records
      .
      rmtmod#rmt:tasks-find-task-queue-records)
    (rmt:csv->test-data . rmtmod#rmt:csv->test-data)
    (rmt:test-data-rollup . rmtmod#rmt:test-data-rollup)
    (rmt:testmeta-update-field . rmtmod#rmt:testmeta-update-field)
    (rmt:testmeta-get-record . rmtmod#rmt:testmeta-get-record)
    (rmt:testmeta-add-record . rmtmod#rmt:testmeta-add-record)
    (rmt:get-data-info-by-id . rmtmod#rmt:get-data-info-by-id)
    (rmt:read-test-data-varpatt . rmtmod#rmt:read-test-data-varpatt)
    (rmt:read-test-data . rmtmod#rmt:read-test-data)
    (rmt:get-steps-info-by-id . rmtmod#rmt:get-steps-info-by-id)
    (rmt:get-steps-for-test . rmtmod#rmt:get-steps-for-test)
    (rmt:delete-steps-for-test! . rmtmod#rmt:delete-steps-for-test!)
    (rmt:teststep-set-status! . rmtmod#rmt:teststep-set-status!)
    (rmt:get-run-stats . rmtmod#rmt:get-run-stats)
    (rmt:get-previous-test-run-record
      .
      rmtmod#rmt:get-previous-test-run-record)
    (rmt:find-and-mark-incomplete-all-runs
      .
      rmtmod#rmt:find-and-mark-incomplete-all-runs)
    (rmt:add-var . rmtmod#rmt:add-var)
    (rmt:dec-var . rmtmod#rmt:dec-var)
    (rmt:inc-var . rmtmod#rmt:inc-var)
    (rmt:set-var . rmtmod#rmt:set-var)
    (rmt:del-var . rmtmod#rmt:del-var)
    (rmt:get-var . rmtmod#rmt:get-var)
    (rmt:get-main-run-stats . rmtmod#rmt:get-main-run-stats)
    (rmt:find-and-mark-incomplete . rmtmod#rmt:find-and-mark-incomplete)
    (rmt:get-runs-by-patt . rmtmod#rmt:get-runs-by-patt)
    (rmt:update-run-event_time . rmtmod#rmt:update-run-event_time)
    (rmt:update-tesdata-on-repilcate-db
      .
      rmtmod#rmt:update-tesdata-on-repilcate-db)
    (rmt:set-run-state-status . rmtmod#rmt:set-run-state-status)
    (rmt:set-run-status . rmtmod#rmt:set-run-status)
    (rmt:get-run-state . rmtmod#rmt:get-run-state)
    (rmt:get-run-status . rmtmod#rmt:get-run-status)
    (rmt:lock/unlock-run . rmtmod#rmt:lock/unlock-run)
    (rmt:get-prev-run-ids . rmtmod#rmt:get-prev-run-ids)
    (rmt:get-all-run-ids . rmtmod#rmt:get-all-run-ids)
    (rmt:simple-get-runs . rmtmod#rmt:simple-get-runs)
    (rmt:get-runs . rmtmod#rmt:get-runs)
    (rmt:delete-old-deleted-test-records
      .
      rmtmod#rmt:delete-old-deleted-test-records)
    (rmt:update-run-stats . rmtmod#rmt:update-run-stats)
    (rmt:delete-run . rmtmod#rmt:delete-run)
    (rmt:get-run-name-from-id . rmtmod#rmt:get-run-name-from-id)
    (rmt:register-run . rmtmod#rmt:register-run)
    (rmt:get-runs-cnt-by-patt . rmtmod#rmt:get-runs-cnt-by-patt)
    (rmt:get-num-runs . rmtmod#rmt:get-num-runs)
    (rmt:get-run-info . rmtmod#rmt:get-run-info)
    (rmt:get-test-times . rmtmod#rmt:get-test-times)
    (rmt:get-raw-run-stats . rmtmod#rmt:get-raw-run-stats)
    (rmt:top-test-set-per-pf-counts . rmtmod#rmt:top-test-set-per-pf-counts)
    (rmt:update-pass-fail-counts . rmtmod#rmt:update-pass-fail-counts)
    (rmt:set-state-status-and-roll-up-run
      .
      rmtmod#rmt:set-state-status-and-roll-up-run)
    (rmt:set-state-status-and-roll-up-items
      .
      rmtmod#rmt:set-state-status-and-roll-up-items)
    (rmt:get-count-tests-running-in-jobgroup
      .
      rmtmod#rmt:get-count-tests-running-in-jobgroup)
    (rmt:get-count-tests-running-for-testname
      .
      rmtmod#rmt:get-count-tests-running-for-testname)
    (rmt:get-count-tests-running . rmtmod#rmt:get-count-tests-running)
    (rmt:get-not-completed-cnt . rmtmod#rmt:get-not-completed-cnt)
    (rmt:get-count-tests-running-for-run-id
      .
      rmtmod#rmt:get-count-tests-running-for-run-id)
    (rmt:get-prereqs-not-met . rmtmod#rmt:get-prereqs-not-met)
    (rmt:test-get-paths-matching-keynames-target-new
      .
      rmtmod#rmt:test-get-paths-matching-keynames-target-new)
    (rmt:get-run-ids-matching-target . rmtmod#rmt:get-run-ids-matching-target)
    (rmt:test-get-top-process-pid . rmtmod#rmt:test-get-top-process-pid)
    (rmt:test-set-top-process-pid . rmtmod#rmt:test-set-top-process-pid)
    (rmt:test-set-log! . rmtmod#rmt:test-set-log!)
    (rmt:get-testinfo-state-status . rmtmod#rmt:get-testinfo-state-status)
    (rmt:test-get-records-for-index-file
      .
      rmtmod#rmt:test-get-records-for-index-file)
    (rmt:test-get-logfile-info . rmtmod#rmt:test-get-logfile-info)
    (rmt:get-matching-previous-test-run-records
      .
      rmtmod#rmt:get-matching-previous-test-run-records)
    (rmt:test-toplevel-num-items . rmtmod#rmt:test-toplevel-num-items)
    (rmt:test-set-state-status . rmtmod#rmt:test-set-state-status)
    (rmt:delete-test-records . rmtmod#rmt:delete-test-records)
    (rmt:get-tests-for-runs-mindata . rmtmod#rmt:get-tests-for-runs-mindata)
    (rmt:get-tests-for-run-mindata . rmtmod#rmt:get-tests-for-run-mindata)
    (rmt:synchash-get . rmtmod#rmt:synchash-get)
    (rmt:get-tests-for-run-state-status
      .
      rmtmod#rmt:get-tests-for-run-state-status)
    (rmt:get-tests-for-run . rmtmod#rmt:get-tests-for-run)
    (rmt:set-tests-state-status . rmtmod#rmt:set-tests-state-status)
    (rmt:test-set-state-status-by-id . rmtmod#rmt:test-set-state-status-by-id)
    (rmt:open-test-db-by-test-id . rmtmod#rmt:open-test-db-by-test-id)
    (rmt:test-get-rundir-from-test-id
      .
      rmtmod#rmt:test-get-rundir-from-test-id)
    (rmt:get-test-info-by-id . rmtmod#rmt:get-test-info-by-id)
    (rmt:get-test-id . rmtmod#rmt:get-test-id)
    (rmt:register-test . rmtmod#rmt:register-test)
    (rmt:get-run-times . rmtmod#rmt:get-run-times)
    (rmt:get-target . rmtmod#rmt:get-target)
    (rmt:get-targets . rmtmod#rmt:get-targets)
    (rmt:get-key-vals . rmtmod#rmt:get-key-vals)
    (rmt:get-keys-write . rmtmod#rmt:get-keys-write)
    (rmt:get-keys . rmtmod#rmt:get-keys)
    (rmt:get-key-val-pairs . rmtmod#rmt:get-key-val-pairs)
    (rmt:get-tests-tags . rmtmod#rmt:get-tests-tags)
    (rmt:create-all-triggers . rmtmod#rmt:create-all-triggers)
    (rmt:drop-all-triggers . rmtmod#rmt:drop-all-triggers)
    (rmt:get-changed-record-ids . rmtmod#rmt:get-changed-record-ids)
    (rmt:get-run-record-ids . rmtmod#rmt:get-run-record-ids)
    (rmt:runtests . rmtmod#rmt:runtests)
    (rmt:sdb-qry . rmtmod#rmt:sdb-qry)
    (rmt:get-latest-host-load . rmtmod#rmt:get-latest-host-load)
    (rmt:general-call . rmtmod#rmt:general-call)
    (rmt:login-no-auto-client-setup . rmtmod#rmt:login-no-auto-client-setup)
    (rmt:login . rmtmod#rmt:login)
    (rmt:start-server . rmtmod#rmt:start-server)
    (rmt:kill-server . rmtmod#rmt:kill-server)
    (rmt:send-receive-no-auto-client-setup
      .
      rmtmod#rmt:send-receive-no-auto-client-setup)
    (rmt:open-qry-close-locally . rmtmod#rmt:open-qry-close-locally)
    (rmt:get-max-query-average . rmtmod#rmt:get-max-query-average)
    (rmt:print-db-stats . rmtmod#rmt:print-db-stats)
    (extras-case-11 . rmtmod#extras-case-11)
    (rmt:send-receive . rmtmod#rmt:send-receive)
    (rmt:init-remote . rmtmod#rmt:init-remote)
    (create-remote-record . rmtmod#create-remote-record)
    (rmt:get-connection-info . rmtmod#rmt:get-connection-info)
    (rmtmod:calc-ro-mode . rmtmod#rmtmod:calc-ro-mode)
    (alist->alldat . rmtmod#alist->alldat)
    (alldat->alist . rmtmod#alldat->alist)
    (update-alldat . rmtmod#update-alldat)
    (set-alldat! . rmtmod#set-alldat!)
    (make-alldat . rmtmod#make-alldat)
    (alldat-ulexdat . rmtmod#alldat-ulexdat)
    (alldat-ulexdat-set! . rmtmod#alldat-ulexdat-set!)
    (alldat-areapath . rmtmod#alldat-areapath)
    (alldat-areapath-set! . rmtmod#alldat-areapath-set!)
    (alldat? . rmtmod#alldat?)
    (make-alldat . rmtmod#make-alldat))
  (list)
  (list))

;; END OF FILE