Megatest

Check-in [4a7d4f4801]
Login
Overview
Comment:added mtargs declaration and import
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-tcp-inmem
Files: files | file ages | folders
SHA1: 4a7d4f48018246c72c949098f2618e8744590402
User & Date: mmgraham on 2023-02-16 19:07:17
Other Links: branch diff | manifest | tags
Context
2023-02-16
19:53
Removed last 2 args from definition of http-transport-handler check-in: 4193a11be6 user: mmgraham tags: v1.80-tcp-inmem
19:07
added mtargs declaration and import check-in: 4a7d4f4801 user: mmgraham tags: v1.80-tcp-inmem
13:24
wip, compiles check-in: 12dfb79088 user: matt tags: v1.80-tcp-inmem
Changes

Modified megatest.scm from [c83ac29735] to [f03cd0b623].

21
22
23
24
25
26
27


28
29
30
31
32
33
34

;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)

(declare (uses common))
;; (declare (uses megatest-version))
(declare (uses margs))


(declare (uses commonmod))
(declare (uses commonmod.import))
(declare (uses debugprint))
(declare (uses debugprint.import))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))







>
>







21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)

(declare (uses common))
;; (declare (uses megatest-version))
(declare (uses margs))
(declare (uses mtargs))
(declare (uses mtargs.import))
(declare (uses commonmod))
(declare (uses commonmod.import))
(declare (uses debugprint))
(declare (uses debugprint.import))
(declare (uses runs))
(declare (uses launch))
(declare (uses server))
56
57
58
59
60
61
62
63

64
65
66
67

68
69
70
71
72
73
74
;; (declare (uses debugprint.import))
;; (declare (uses mtargs))
;; (declare (uses mtargs.import))

;; (declare (uses ftail))
;; (import ftail)

(import debugprint

	dbmod
	commonmod
	dbfile
	tcp-transportmod)


(define *db* #f) ;; this is only for the repl, do not use in general!!!!

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")







|
>



|
>







58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
;; (declare (uses debugprint.import))
;; (declare (uses mtargs))
;; (declare (uses mtargs.import))

;; (declare (uses ftail))
;; (import ftail)

(import mtargs
        debugprint
	dbmod
	commonmod
	dbfile
	tcp-transportmod
        )

(define *db* #f) ;; this is only for the repl, do not use in general!!!!

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")