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