Megatest

Check-in [615f8750c8]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-refactor02 | v1.70-defunct-try
Files: files | file ages | folders
SHA1: 615f8750c83a2e3a47d95cafa1370175b6b02609
User & Date: mrwellan on 2019-12-31 10:00:44
Other Links: branch diff | manifest | tags
Context
2019-12-31
10:57
wip check-in: b7dc85fea2 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
10:00
wip check-in: 615f8750c8 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
09:38
wip check-in: fc751975b3 user: mrwellan tags: v1.70-refactor02, v1.70-defunct-try
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified commonmod.scm from [d0192acf61] to [c77b3c0ca1].

︙︙
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44




45
46
47
48
49
50
51


(module commonmod
	*
	
(import scheme chicken data-structures extras)

(use (prefix sqlite3 sqlite3:) posix typed-records srfi-18
	srfi-1 files format srfi-13 matchable 
	srfi-69 ports
	(prefix base64 base64:)
	regex-case regex hostinfo srfi-4
	pkts (prefix dbi dbi:)
	stack
	md5 
	message-digest
	(prefix mtconfigf configf:)
	z3
	(prefix mtargs args:)
	directory-utils
	sparse-vectors)





(include "common_records.scm")
(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")

 ;; no need to export this
(define *verbosity-cache* (make-hash-table))








|
|
|
|
|
|
|
|
<
|
<
|
|
>
>
>
>








25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

40

41
42
43
44
45
46
47
48
49
50
51
52
53


(module commonmod
	*
	
(import scheme chicken data-structures extras)

(use (prefix sqlite3 sqlite3:) posix typed-records srfi-18
     srfi-1 files format srfi-13 matchable 
     srfi-69 ports
     (prefix base64 base64:)
     regex-case regex hostinfo srfi-4
     (prefix dbi dbi:)
     stack
     md5 
     message-digest

     z3

     directory-utils
     sparse-vectors)

(import pkts)
(import	(prefix mtconfigf configf:))
(import	(prefix mtargs args:))

(include "common_records.scm")
(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")

 ;; no need to export this
(define *verbosity-cache* (make-hash-table))
︙︙

Modified megamod.scm from [8bf7bf0491] to [8e380fd6d6].

︙︙
19
20
21
22
23
24
25

26
27
28
29
30
31
32
33
34

;;======================================================================

(declare (unit megamod))

(declare (uses stml2))
(declare (uses mtargs))


(declare (uses apimod))
(declare (uses commonmod))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses itemsmod))
(declare (uses mtconfigf))
(declare (uses odsmod))
(declare (uses pgdbmod))
(declare (uses pkts))








>

|








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

;;======================================================================

(declare (unit megamod))

(declare (uses stml2))
(declare (uses mtargs))

(declare (uses commonmod))
(declare (uses apimod))
(declare (uses keysmod))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses itemsmod))
(declare (uses mtconfigf))
(declare (uses odsmod))
(declare (uses pgdbmod))
(declare (uses pkts))
︙︙
110
111
112
113
114
115
116


117
118
119
120
121
122
123
124
125
126

;; (define config:eval-string-in-environment configf:eval-string-in-environment)

(import spiffy)

(import stml2)
(import (prefix mtargs args:))



(import apimod)
(import commonmod)
(import dbmod)
(import ducttape-lib)
(import itemsmod)
(import pkts)
(import pgdbmod)
(import rmtmod)
(import runsmod)
(import servermod)








>
>
|
|
|








111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129

;; (define config:eval-string-in-environment configf:eval-string-in-environment)

(import spiffy)

(import stml2)
(import (prefix mtargs args:))

;; Order here is important!
(import commonmod)
(import keysmod)
(import dbmod)
(import apimod)
(import ducttape-lib)
(import itemsmod)
(import pkts)
(import pgdbmod)
(import rmtmod)
(import runsmod)
(import servermod)
︙︙

Modified megatest.scm from [fbcdb6977c] to [eadab888d3].

︙︙
32
33
34
35
36
37
38


39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

59
60
61
62
63
64
65
66
67
68
69


70
71



72

73
74

75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97


(declare (uses mtargs))
(declare (uses mtconfigf))

(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))



(declare (uses apimod))
;; (declare (uses commonmod))
(declare (uses cookie))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses megamod))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses stml2))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses ulex))

(import apimod)
;; (import commonmod)
(import cookie)
(import dbmod)

(import ducttape-lib)
(import megamod)
(import mutils)
(import pgdbmod)
(import pkts)
(import rmtmod)
(import runsmod)
(import stml2)
(import testsmod)
(import ulex)



;; invoke the imports
(declare (uses apimod.import))



;; (declare (uses commonmod.import))

(declare (uses cookie.import))
(declare (uses dbmod))

(declare (uses ducttape-lib.import))
(declare (uses megamod.import))
(declare (uses mutils.import))
(declare (uses pkts.import))
(declare (uses pgdbmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses stml2.import))
(declare (uses tasksmod.import))
(declare (uses testsmod.import))
(declare (uses ulex.import))

;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))

(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)


(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))

(include "common_records.scm")








>
>

|
|













|
|
|
|
>











>
>

|
>
>
>
|
>
|
|
>












<
<
<
<








32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96




97
98
99
100
101
102
103


(declare (uses mtargs))
(declare (uses mtconfigf))

(import (prefix mtargs args:))
(import (prefix mtconfigf configf:))

;; order maters
(declare (uses commonmod))
(declare (uses apimod))
(declare (uses cookie))
(declare (uses keysmod))
(declare (uses dbmod))
(declare (uses ducttape-lib))
(declare (uses megamod))
(declare (uses mutils))
(declare (uses pgdbmod))
(declare (uses pkts))
(declare (uses rmtmod))
(declare (uses runsmod))
(declare (uses stml2))
(declare (uses tasksmod))
(declare (uses testsmod))
(declare (uses ulex))

(import commonmod)
(import keysmod)
(import dbmod)
(import apimod)
(import cookie)
(import ducttape-lib)
(import megamod)
(import mutils)
(import pgdbmod)
(import pkts)
(import rmtmod)
(import runsmod)
(import stml2)
(import testsmod)
(import ulex)

;; NOTE: Order is important!

;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))

;; invoke the imports
(declare (uses commonmod.import))
(declare (uses keysmod.import))
(declare (uses dbmod.import))
(declare (uses apimod.import))
(declare (uses cookie.import))
(declare (uses ducttape-lib.import))
(declare (uses megamod.import))
(declare (uses mutils.import))
(declare (uses pkts.import))
(declare (uses pgdbmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses stml2.import))
(declare (uses tasksmod.import))
(declare (uses testsmod.import))
(declare (uses ulex.import))





(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)


(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(define *default-log-port* (current-error-port))

(include "common_records.scm")
︙︙

This page was generated in about 0.112s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00