18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
;; (include "common.scm")
;; (include "megatest-version.scm")
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)
readline apropos json http-client directory-utils typed-records
http-client srfi-18 extras format)
;; Added for csv stuff - will be removed
;;
(use sparse-vectors)
(declare (uses mtargs))
(declare (uses mtconfigf))
|
|
|
|
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
;; (include "common.scm")
;; (include "megatest-version.scm")
;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)
(import (prefix sqlite3 sqlite3:) srfi-1 regex regex-case srfi-69 (prefix base64 base64:)
breadline apropos json http-client directory-utils typed-records
http-client srfi-18 chicken.format tcp6)
;; Added for csv stuff - will be removed
;;
(use sparse-vectors)
(declare (uses mtargs))
(declare (uses mtconfigf))
|
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
|
;; (exit)
;; EOF
(repl))
(else
(begin
(set! *db* dbstruct)
(import extras) ;; might not be needed
(import readline)
(import apropos)
(import dbmod)
(import rmtmod)
(import commonmod)
;; (import (prefix sqlite3 sqlite3:)) ;; doesn't work ...
(if *use-new-readline*
|
<
|
|
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
|
;; (exit)
;; EOF
(repl))
(else
(begin
(set! *db* dbstruct)
;; (import csi)
(import breadline)
(import apropos)
(import dbmod)
(import rmtmod)
(import commonmod)
;; (import (prefix sqlite3 sqlite3:)) ;; doesn't work ...
(if *use-new-readline*
|