Megatest

dbmod.import.scm at [5d8e30ec14]
Login

File attic_modular/dbmod.import.scm artifact 95a19739e5 part of check-in 5d8e30ec14


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

(eval '(import
         commonmod
         debugprint
         ods
         configfmod
         margsmod
         scheme
         chicken
         data-structures
         extras
         ports
         (prefix base64 base64:)
         (prefix sqlite3 sqlite3:)
         csv
         csv-xml
         call-with-environment-variables
         directory-utils
         files
         matchable
         md5
         posix
         typed-records
         srfi-18
         srfi-69
         regex
         s11n
         srfi-1
         srfi-13
         stack
         z3
         (prefix dbi dbi:)
         pkts))
(##sys#register-compiled-module
  'dbmod
  (list)
  '((server:get-bruteforce-syncer . dbmod#server:get-bruteforce-syncer)
    (server:writable-watchdog-deltasync
      .
      dbmod#server:writable-watchdog-deltasync)
    (server:writable-watchdog-bruteforce
      .
      dbmod#server:writable-watchdog-bruteforce)
    (db:api-changed? . dbmod#db:api-changed?)
    (db:version-changed? . dbmod#db:version-changed?)
    (db:version-db-delta . dbmod#db:version-db-delta)
    (db:get-last-run-version-number . dbmod#db:get-last-run-version-number)
    (db:set-last-run-version . dbmod#db:set-last-run-version)
    (db:get-last-run-version . dbmod#db:get-last-run-version)
    (common:get-disks . dbmod#common:get-disks)
    (common:args-get-testpatt . dbmod#common:args-get-testpatt)
    (common:args-get-status . dbmod#common:args-get-status)
    (common:args-get-state . dbmod#common:args-get-state)
    (runconfigs-get . dbmod#runconfigs-get)
    (common:get-runconfig-targets . dbmod#common:get-runconfig-targets)
    (common:load-views-config . dbmod#common:load-views-config)
    (common:readonly-watchdog . dbmod#common:readonly-watchdog)
    (common:exit-on-version-changed . dbmod#common:exit-on-version-changed)
    (common:cleanup-db . dbmod#common:cleanup-db)
    (*watchdog* . dbmod#*watchdog*)
    (common:watchdog . dbmod#common:watchdog)
    (db:set-tests-state-status . dbmod#db:set-tests-state-status)
    (mt:lazy-read-test-config . dbmod#mt:lazy-read-test-config)
    (mt:process-triggers . dbmod#mt:process-triggers)
    (server:logf-get-start-info . dbmod#server:logf-get-start-info)
    (db:get-access-mode . dbmod#db:get-access-mode)
    (db:multi-db-sync . dbmod#db:multi-db-sync)
    (server:get-list . dbmod#server:get-list)
    (db:test-set-state-status-process-triggers
      .
      dbmod#db:test-set-state-status-process-triggers)
    (db:find-and-mark-incomplete . dbmod#db:find-and-mark-incomplete)
    (db:test-set-state-status . dbmod#db:test-set-state-status)
    (db:set-state-status-and-roll-up-items
      .
      dbmod#db:set-state-status-and-roll-up-items)
    (db:writeable . dbmod#db:writeable)
    (mt:run-trigger . dbmod#mt:run-trigger)
    (db:extract-ods-file . dbmod#db:extract-ods-file)
    (db:get-changed-record-ids . dbmod#db:get-changed-record-ids)
    (db:get-run-record-ids . dbmod#db:get-run-record-ids)
    (db:get-prereqs-not-met . dbmod#db:get-prereqs-not-met)
    (db:testmeta-get-all . dbmod#db:testmeta-get-all)
    (db:testmeta-update-field . dbmod#db:testmeta-update-field)
    (db:testmeta-add-record . dbmod#db:testmeta-add-record)
    (db:testmeta-get-record . dbmod#db:testmeta-get-record)
    (db:get-tests-tags . dbmod#db:get-tests-tags)
    (db:test-get-records-for-index-file
      .
      dbmod#db:test-get-records-for-index-file)
    (db:get-matching-previous-test-run-records
      .
      dbmod#db:get-matching-previous-test-run-records)
    (db:set-top-level-from-items . dbmod#db:set-top-level-from-items)
    (db:get-latest-host-load . dbmod#db:get-latest-host-load)
    (db:get-state-status-summary . dbmod#db:get-state-status-summary)
    (db:general-call . dbmod#db:general-call)
    (db:login . dbmod#db:login)
    (db:special-queries . dbmod#db:special-queries)
    (db:lookup-query . dbmod#db:lookup-query)
    (db:queries . dbmod#db:queries)
    (db:test-get-logfile-info . dbmod#db:test-get-logfile-info)
    (db:get-all-state-status-counts-for-test
      .
      dbmod#db:get-all-state-status-counts-for-test)
    (db:get-all-state-status-counts-for-run
      .
      dbmod#db:get-all-state-status-counts-for-run)
    (db:set-state-status-and-roll-up-run
      .
      dbmod#db:set-state-status-and-roll-up-run)
    (db:roll-up-rules . dbmod#db:roll-up-rules)
    (db:string->obj . dbmod#db:string->obj)
    (db:obj->string . dbmod#db:obj->string)
    (db:test-toplevel-num-items . dbmod#db:test-toplevel-num-items)
    (db:test-get-paths-matching-keynames-target-new
      .
      dbmod#db:test-get-paths-matching-keynames-target-new)
    (db:get-run-ids-matching-target . dbmod#db:get-run-ids-matching-target)
    (db:read-test-data-varpatt . dbmod#db:read-test-data-varpatt)
    (db:read-test-data . dbmod#db:read-test-data)
    (db:csv->test-data . dbmod#db:csv->test-data)
    (tdb:get-prev-tol-for-test . dbmod#tdb:get-prev-tol-for-test)
    (db:logpro-dat->csv . dbmod#db:logpro-dat->csv)
    (db:test-data-rollup . dbmod#db:test-data-rollup)
    (db:get-data-info-by-id . dbmod#db:get-data-info-by-id)
    (db:get-steps-data . dbmod#db:get-steps-data)
    (db:get-steps-info-by-id . dbmod#db:get-steps-info-by-id)
    (db:get-steps-for-test . dbmod#db:get-steps-for-test)
    (db:delete-steps-for-test! . dbmod#db:delete-steps-for-test!)
    (db:teststep-set-status! . dbmod#db:teststep-set-status!)
    (db:get-test-times . dbmod#db:get-test-times)
    (db:test-get-rundir-from-test-id . dbmod#db:test-get-rundir-from-test-id)
    (db:get-test-info . dbmod#db:get-test-info)
    (db:get-test-info-by-ids . dbmod#db:get-test-info-by-ids)
    (db:get-test-info-by-id . dbmod#db:get-test-info-by-id)
    (db:prep-megatest.db-for-migration
      .
      dbmod#db:prep-megatest.db-for-migration)
    (db:prep-megatest.db-adj-test-ids . dbmod#db:prep-megatest.db-adj-test-ids)
    (db:adj-test-id . dbmod#db:adj-test-id)
    (db:replace-test-records . dbmod#db:replace-test-records)
    (db:get-all-tests-info-by-run-id . dbmod#db:get-all-tests-info-by-run-id)
    (db:update-tesdata-on-repilcate-db
      .
      dbmod#db:update-tesdata-on-repilcate-db)
    (db:test-record-qry-selector . dbmod#db:test-record-qry-selector)
    (db:field->number . dbmod#db:field->number)
    (db:test-record-fields . dbmod#db:test-record-fields)
    (db:test-get-top-process-pid . dbmod#db:test-get-top-process-pid)
    (db:test-set-top-process-pid . dbmod#db:test-set-top-process-pid)
    (db:get-test-id . dbmod#db:get-test-id)
    (db:estimated-tests-remaining . dbmod#db:estimated-tests-remaining)
    (db:get-count-tests-running-in-jobgroup
      .
      dbmod#db:get-count-tests-running-in-jobgroup)
    (db:get-not-completed-cnt . dbmod#db:get-not-completed-cnt)
    (db:get-count-tests-running-for-testname
      .
      dbmod#db:get-count-tests-running-for-testname)
    (db:get-count-tests-running-for-run-id
      .
      dbmod#db:get-count-tests-running-for-run-id)
    (db:get-count-tests-actually-running
      .
      dbmod#db:get-count-tests-actually-running)
    (db:get-count-tests-running . dbmod#db:get-count-tests-running)
    (db:delete-old-deleted-test-records
      .
      dbmod#db:delete-old-deleted-test-records)
    (db:delete-test-records . dbmod#db:delete-test-records)
    (db:get-tests-for-runs . dbmod#db:get-tests-for-runs)
    (db:get-tests-for-run-mindata . dbmod#db:get-tests-for-run-mindata)
    (db:get-testinfo-state-status . dbmod#db:get-testinfo-state-status)
    (db:get-tests-for-run-state-status
      .
      dbmod#db:get-tests-for-run-state-status)
    (db:test-short-record->norm . dbmod#db:test-short-record->norm)
    (db:get-tests-for-run . dbmod#db:get-tests-for-run)
    (db:get-prev-run-ids . dbmod#db:get-prev-run-ids)
    (db:get-target . dbmod#db:get-target)
    (db:get-key-vals . dbmod#db:get-key-vals)
    (db:get-key-val-pairs . dbmod#db:get-key-val-pairs)
    (db:get-run-state . dbmod#db:get-run-state)
    (db:get-run-status . dbmod#db:get-run-status)
    (db:set-run-state-status . dbmod#db:set-run-state-status)
    (db:set-run-status . dbmod#db:set-run-status)
    (db:lock/unlock-run . dbmod#db:lock/unlock-run)
    (db:update-run-event_time . dbmod#db:update-run-event_time)
    (db:delete-run . dbmod#db:delete-run)
    (db:set-comment-for-run . dbmod#db:set-comment-for-run)
    (db:get-run-info . dbmod#db:get-run-info)
    (db:get-runs-by-patt . dbmod#db:get-runs-by-patt)
    (db:get-run-stats . dbmod#db:get-run-stats)
    (db:get-all-run-ids . dbmod#db:get-all-run-ids)
    (db:print-current-query-stats . dbmod#db:print-current-query-stats)
    (db:get-main-run-stats . dbmod#db:get-main-run-stats)
    (db:update-run-stats . dbmod#db:update-run-stats)
    (db:get-raw-run-stats . dbmod#db:get-raw-run-stats)
    (db:get-runs-cnt-by-patt . dbmod#db:get-runs-cnt-by-patt)
    (db:get-num-runs . dbmod#db:get-num-runs)
    (db:get-targets . dbmod#db:get-targets)
    (db:get-changed-run-ids . dbmod#db:get-changed-run-ids)
    (db:simple-get-runs . dbmod#db:simple-get-runs)
    (simple-run-event_time . dbmod#simple-run-event_time)
    (simple-run-event_time-set! . dbmod#simple-run-event_time-set!)
    (simple-run-owner . dbmod#simple-run-owner)
    (simple-run-owner-set! . dbmod#simple-run-owner-set!)
    (simple-run-status . dbmod#simple-run-status)
    (simple-run-status-set! . dbmod#simple-run-status-set!)
    (simple-run-state . dbmod#simple-run-state)
    (simple-run-state-set! . dbmod#simple-run-state-set!)
    (simple-run-runname . dbmod#simple-run-runname)
    (simple-run-runname-set! . dbmod#simple-run-runname-set!)
    (simple-run-id . dbmod#simple-run-id)
    (simple-run-id-set! . dbmod#simple-run-id-set!)
    (simple-run-target . dbmod#simple-run-target)
    (simple-run-target-set! . dbmod#simple-run-target-set!)
    (simple-run? . dbmod#simple-run?)
    (make-simple-run . dbmod#make-simple-run)
    (db:get-runs . dbmod#db:get-runs)
    (db:register-run . dbmod#db:register-run)
    (runs:get-std-run-fields . dbmod#runs:get-std-run-fields)
    (db:get-run-key-val . dbmod#db:get-run-key-val)
    (db:get-run-name-from-id . dbmod#db:get-run-name-from-id)
    (db:get-run-times . dbmod#db:get-run-times)
    (db:get-rows . dbmod#db:get-rows)
    (db:get-header . dbmod#db:get-header)
    (db:get-value-by-header . dbmod#db:get-value-by-header)
    (db:get-index-by-header . dbmod#db:get-index-by-header)
    (db:get-keys . dbmod#db:get-keys)
    (db:no-sync-get-lock . dbmod#db:no-sync-get-lock)
    (db:no-sync-close-db . dbmod#db:no-sync-close-db)
    (db:no-sync-get/default . dbmod#db:no-sync-get/default)
    (db:no-sync-del! . dbmod#db:no-sync-del!)
    (db:no-sync-set . dbmod#db:no-sync-set)
    (db:no-sync-db . dbmod#db:no-sync-db)
    (db:open-no-sync-db . dbmod#db:open-no-sync-db)
    (db:del-var . dbmod#db:del-var)
    (db:add-var . dbmod#db:add-var)
    (db:set-var . dbmod#db:set-var)
    (db:dec-var . dbmod#db:dec-var)
    (db:inc-var . dbmod#db:inc-var)
    (db:get-var . dbmod#db:get-var)
    (db:clean-up-maindb . dbmod#db:clean-up-maindb)
    (db:clean-up-rundb . dbmod#db:clean-up-rundb)
    (db:clean-up . dbmod#db:clean-up)
    (db:top-test-set-per-pf-counts . dbmod#db:top-test-set-per-pf-counts)
    (db:get-status-from-final-status-file
      .
      dbmod#db:get-status-from-final-status-file)
    (db:have-incompletes? . dbmod#db:have-incompletes?)
    (db:test-get-archive-block-info . dbmod#db:test-get-archive-block-info)
    (db:test-set-archive-block-id . dbmod#db:test-set-archive-block-id)
    (db:archive-register-block-name . dbmod#db:archive-register-block-name)
    (db:archive-register-disk . dbmod#db:archive-register-disk)
    (db:archive-get-allocations . dbmod#db:archive-get-allocations)
    (db:sync-to-megatest.db . dbmod#db:sync-to-megatest.db)
    (db:tmp->megatest.db-sync . dbmod#db:tmp->megatest.db-sync)
    (db:cache-for-read-only . dbmod#db:cache-for-read-only)
    (db:dispatch-query . dbmod#db:dispatch-query)
    (*global-db-store* . dbmod#*global-db-store*)
    (db:adj-target . dbmod#db:adj-target)
    (db:patch-schema-maindb . dbmod#db:patch-schema-maindb)
    (db:patch-schema-rundb . dbmod#db:patch-schema-rundb)
    (db:move-and-recreate-db . dbmod#db:move-and-recreate-db)
    (db:close-all . dbmod#db:close-all)
    (db:safely-close-sqlite3-db . dbmod#db:safely-close-sqlite3-db)
    (db:sync-touched . dbmod#db:sync-touched)
    (db:setup . dbmod#db:setup)
    (db:get-last-update-time . dbmod#db:get-last-update-time)
    (db:set-sync . dbmod#db:set-sync)
    (db:dbfile-path . dbmod#db:dbfile-path)
    (db:repair-db . dbmod#db:repair-db)
    (db:trigger-list . dbmod#db:trigger-list)
    (db:sync-tables . dbmod#db:sync-tables)
    (db:sync-all-tables-list . dbmod#db:sync-all-tables-list)
    (db:sync-main-list . dbmod#db:sync-main-list)
    (db:sync-tests-only . dbmod#db:sync-tests-only)
    (db:open-db . dbmod#db:open-db)
    (db:with-db . dbmod#db:with-db)
    (db:dbdat-get-path . dbmod#db:dbdat-get-path)
    (db:dbdat-get-db . dbmod#db:dbdat-get-db)
    (db:get-db . dbmod#db:get-db)
    (db:create-trigger . dbmod#db:create-trigger)
    (db:drop-trigger . dbmod#db:drop-trigger)
    (db:drop-triggers . dbmod#db:drop-triggers)
    (db:is-trigger-dropped . dbmod#db:is-trigger-dropped)
    (db:drop-all-triggers . dbmod#db:drop-all-triggers)
    (db:create-triggers . dbmod#db:create-triggers)
    (db:create-all-triggers . dbmod#db:create-all-triggers)
    (db:initialize-main-db . dbmod#db:initialize-main-db)
    (db:lock-create-open . dbmod#db:lock-create-open)
    (db:open-megatest-db . dbmod#db:open-megatest-db)
    (tasks:wait-on-journal . dbmod#tasks:wait-on-journal)
    (db:first-result-default . dbmod#db:first-result-default)
    (db:general-sqlite-error-dump . dbmod#db:general-sqlite-error-dump)
    (db:get-cache-stmth . dbmod#db:get-cache-stmth)
    (db:hoh-get . dbmod#db:hoh-get)
    (db:hoh-set! . dbmod#db:hoh-set!)
    (alist->dbr:counts . dbmod#alist->dbr:counts)
    (dbr:counts->alist . dbmod#dbr:counts->alist)
    (update-dbr:counts . dbmod#update-dbr:counts)
    (set-dbr:counts! . dbmod#set-dbr:counts!)
    (make-dbr:counts . dbmod#make-dbr:counts)
    (dbr:counts-count . dbmod#dbr:counts-count)
    (dbr:counts-count-set! . dbmod#dbr:counts-count-set!)
    (dbr:counts-status . dbmod#dbr:counts-status)
    (dbr:counts-status-set! . dbmod#dbr:counts-status-set!)
    (dbr:counts-state . dbmod#dbr:counts-state)
    (dbr:counts-state-set! . dbmod#dbr:counts-state-set!)
    (dbr:counts? . dbmod#dbr:counts?)
    (make-dbr:counts . dbmod#make-dbr:counts)
    (alist->dbr:dbstruct . dbmod#alist->dbr:dbstruct)
    (dbr:dbstruct->alist . dbmod#dbr:dbstruct->alist)
    (update-dbr:dbstruct . dbmod#update-dbr:dbstruct)
    (set-dbr:dbstruct! . dbmod#set-dbr:dbstruct!)
    (make-dbr:dbstruct . dbmod#make-dbr:dbstruct)
    (dbr:dbstruct-stmt-cache . dbmod#dbr:dbstruct-stmt-cache)
    (dbr:dbstruct-stmt-cache-set! . dbmod#dbr:dbstruct-stmt-cache-set!)
    (dbr:dbstruct-locdbs . dbmod#dbr:dbstruct-locdbs)
    (dbr:dbstruct-locdbs-set! . dbmod#dbr:dbstruct-locdbs-set!)
    (dbr:dbstruct-read-only . dbmod#dbr:dbstruct-read-only)
    (dbr:dbstruct-read-only-set! . dbmod#dbr:dbstruct-read-only-set!)
    (dbr:dbstruct-on-homehost . dbmod#dbr:dbstruct-on-homehost)
    (dbr:dbstruct-on-homehost-set! . dbmod#dbr:dbstruct-on-homehost-set!)
    (dbr:dbstruct-homehost . dbmod#dbr:dbstruct-homehost)
    (dbr:dbstruct-homehost-set! . dbmod#dbr:dbstruct-homehost-set!)
    (dbr:dbstruct-refndb . dbmod#dbr:dbstruct-refndb)
    (dbr:dbstruct-refndb-set! . dbmod#dbr:dbstruct-refndb-set!)
    (dbr:dbstruct-mtdb . dbmod#dbr:dbstruct-mtdb)
    (dbr:dbstruct-mtdb-set! . dbmod#dbr:dbstruct-mtdb-set!)
    (dbr:dbstruct-dbstack . dbmod#dbr:dbstruct-dbstack)
    (dbr:dbstruct-dbstack-set! . dbmod#dbr:dbstruct-dbstack-set!)
    (dbr:dbstruct-tmpdb . dbmod#dbr:dbstruct-tmpdb)
    (dbr:dbstruct-tmpdb-set! . dbmod#dbr:dbstruct-tmpdb-set!)
    (dbr:dbstruct? . dbmod#dbr:dbstruct?)
    (make-dbr:dbstruct . dbmod#make-dbr:dbstruct)
    (make-cdb:packet . dbmod#make-cdb:packet)
    (make-db:test-data . dbmod#make-db:test-data)
    (make-db:testmeta . dbmod#make-db:testmeta)
    (make-db:mintest . dbmod#make-db:mintest)
    (db:test-get-is-toplevel . dbmod#db:test-get-is-toplevel)
    (db:test-make-full-name . dbmod#db:test-make-full-name)
    (make-db:test . dbmod#make-db:test))
  (list)
  (list))

;; END OF FILE