;;;; tdb.import.scm - GENERATED BY CHICKEN 4.13.0 -*- Scheme -*-
(eval '(import
scheme
chicken
data-structures
extras
ports
srfi-18
extras
tcp
sqlite3
srfi-1
posix
regex
regex-case
srfi-69
csv-xml
s11n
md5
message-digest
base64
(prefix sqlite3 sqlite3:)
(prefix base64 base64:)
margsmod
commonmod
debugprint
dbmod
ods
postgresql))
(##sys#register-compiled-module
'tdb
(list)
'((tdb:get-compressed-steps . tdb#tdb:get-compressed-steps)
(tdb:get-steps-table-list . tdb#tdb:get-steps-table-list)
(tdb:get-steps-table . tdb#tdb:get-steps-table)
(tdb:step-get-time-as-string . tdb#tdb:step-get-time-as-string)
(tdb:read-test-data . tdb#tdb:read-test-data)
(tdb:testdb-initialize . tdb#tdb:testdb-initialize)
(tdb:open-run-close-db-by-test-id-local
.
tdb#tdb:open-run-close-db-by-test-id-local)
(tdb:open-test-db-by-test-id-local . tdb#tdb:open-test-db-by-test-id-local)
(open-test-db . tdb#open-test-db)
(tdb:step-stable-set-runtime! . tdb#tdb:step-stable-set-runtime!)
(tdb:step-stable-set-status! . tdb#tdb:step-stable-set-status!)
(tdb:step-stable-set-end! . tdb#tdb:step-stable-set-end!)
(tdb:step-stable-set-start! . tdb#tdb:step-stable-set-start!)
(tdb:step-stable-set-stepname! . tdb#tdb:step-stable-set-stepname!)
(tdb:steps-table-get-log-file . tdb#tdb:steps-table-get-log-file)
(tdb:steps-table-get-runtime . tdb#tdb:steps-table-get-runtime)
(tdb:steps-table-get-status . tdb#tdb:steps-table-get-status)
(tdb:steps-table-get-end . tdb#tdb:steps-table-get-end)
(tdb:steps-table-get-start . tdb#tdb:steps-table-get-start)
(tdb:steps-table-get-stepname . tdb#tdb:steps-table-get-stepname)
(make-db:steps-table . tdb#make-db:steps-table)
(tdb:step-set-comment! . tdb#tdb:step-set-comment!)
(tdb:step-set-logfile! . tdb#tdb:step-set-logfile!)
(tdb:step-set-event_time! . tdb#tdb:step-set-event_time!)
(tdb:step-set-status! . tdb#tdb:step-set-status!)
(tdb:step-set-state! . tdb#tdb:step-set-state!)
(tdb:step-set-stepname! . tdb#tdb:step-set-stepname!)
(tdb:step-set-test_id! . tdb#tdb:step-set-test_id!)
(tdb:step-set-id! . tdb#tdb:step-set-id!)
(tdb:step-get-last_update . tdb#tdb:step-get-last_update)
(tdb:step-get-comment . tdb#tdb:step-get-comment)
(tdb:step-get-logfile . tdb#tdb:step-get-logfile)
(tdb:step-get-event_time . tdb#tdb:step-get-event_time)
(tdb:step-get-status . tdb#tdb:step-get-status)
(tdb:step-get-state . tdb#tdb:step-get-state)
(tdb:step-get-stepname . tdb#tdb:step-get-stepname)
(tdb:step-get-test_id . tdb#tdb:step-get-test_id)
(tdb:step-get-id . tdb#tdb:step-get-id)
(make-db:step . tdb#make-db:step)
(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)
(*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