Megatest

Changes On Branch bbac9c368299f456
Login

Changes In Branch v1.90-proper-interface-lists Through [bbac9c3682] Excluding Merge-Ins

This is equivalent to a diff from cee15a9d94 to bbac9c3682

2024-02-12
13:45
wip check-in: e0be4c40b4 user: mrwellan tags: v1.90-proper-interface-lists
2024-02-11
19:49
convert to use proper interface lists check-in: bbac9c3682 user: matt tags: v1.90-proper-interface-lists
18:19
Adding uses of .import files back Leaf check-in: cee15a9d94 user: matt tags: v1.90-fix-modes
16:41
Moved remainder of configf into configfmod check-in: c2d750aad9 user: matt tags: v1.90-fix-modes

Modified apimod.scm from [c5b4d2905e] to [1230728213].

23
24
25
26
27
28
29
30

31
32
33
34
35
36
37
(declare (uses debugprint))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses tcp-transportmod))
(declare (uses megatestmod))

(module apimod
	*

	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix matchable typed-records srfi-1 srfi-18 srfi-69 )
(import commonmod)
(import debugprint)
(import dbmod)
(import dbfile)







<
>







23
24
25
26
27
28
29

30
31
32
33
34
35
36
37
(declare (uses debugprint))
(declare (uses dbmod))
(declare (uses dbfile))
(declare (uses tcp-transportmod))
(declare (uses megatestmod))

(module apimod

()
	
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:) posix matchable typed-records srfi-1 srfi-18 srfi-69 )
(import commonmod)
(import debugprint)
(import dbmod)
(import dbfile)

Modified archivemod.scm from [ddced4be70] to [84501e50bf].

35
36
37
38
39
40
41
42

43
44
45
46
47
48
49
(declare (uses mtmod))
(declare (uses dbmod))
(declare (uses dbfile))

(use srfi-69)

(module archivemod
	*


(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>







35
36
37
38
39
40
41

42
43
44
45
46
47
48
49
(declare (uses mtmod))
(declare (uses dbmod))
(declare (uses dbfile))

(use srfi-69)

(module archivemod

()

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
	srfi-13
	srfi-18
	srfi-69
	typed-records
	z3
	)
	
(include "common_records.scm")
;; (include "db_records.scm")

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

;; ;; NOT CURRENTLY USED







|







119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
	srfi-13
	srfi-18
	srfi-69
	typed-records
	z3
	)
	
;; (include "common_records.scm")
;; (include "db_records.scm")

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

;; ;; NOT CURRENTLY USED

Modified common.scm from [58be7ce4cf] to [ba3517865c].

41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
(import commonmod
	processmod
	debugprint
	configfmod
	rmtmod
	(prefix mtargs args:))

(include "common_records.scm")





;;======================================================================
;; (define *common:telemetry-log-state* 'startup)







|







41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
(import commonmod
	processmod
	debugprint
	configfmod
	rmtmod
	(prefix mtargs args:))

;; (include "common_records.scm")





;;======================================================================
;; (define *common:telemetry-log-state* 'startup)

Modified commonmod.scm from [5100c657f0] to [4d77696a14].

48
49
50
51
52
53
54







55





56














57
58
59
60
61
62
63
     typed-records
     z3)

(import stml2
	)

(module commonmod







	*




















(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
	  (prefix base64 base64:)







>
>
>
>
>
>
>
|
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>







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
     typed-records
     z3)

(import stml2
	)

(module commonmod
	(
	 common:get-toppath
	 common:generic-ssh
	 common:file-exists?
	 common:with-env-vars
	 common:nice-path
	 common:get-fields

	 ;; globals
	 *configdat*
	 *db-access-allowed*
	 *db-cache-path*
	 *toppath*
	 
	 keys:target-set-args

	 getenv
	 setenv
	 safe-setenv

	 get-area-path-signature
	 common:simple-file-lock
	 common:low-noise-print
	 common:get-create-writeable-dir
	 common:real-path
	 val->alist
)
	
(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
	  (prefix base64 base64:)
383
384
385
386
387
388
389

390
391
392
393
394
395
396
(define *fdb* #f)

(define *last-launch* (current-seconds)) ;; use for throttling the launch rate. Would be better to use the db and last time of a test in LAUNCHED state.

;; environment vars handy stuff from common.scm
;;
(define getenv get-environment-variable)

(define (safe-setenv key val)
  (if (or (substring-index "!" key)
	  (substring-index ":" key)  ;; variables containing : are for internal use and cannot be environment variables.
	  (substring-index "." key)) ;; periods are not allowed in environment variables
      (debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"")
      (if (and (string? val)
	       (string? key))







>







409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
(define *fdb* #f)

(define *last-launch* (current-seconds)) ;; use for throttling the launch rate. Would be better to use the db and last time of a test in LAUNCHED state.

;; environment vars handy stuff from common.scm
;;
(define getenv get-environment-variable)

(define (safe-setenv key val)
  (if (or (substring-index "!" key)
	  (substring-index ":" key)  ;; variables containing : are for internal use and cannot be environment variables.
	  (substring-index "." key)) ;; periods are not allowed in environment variables
      (debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"")
      (if (and (string? val)
	       (string? key))
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
  ;; convert string a=1; b=2; c=a silly thing; d=
  (let ((valstr (lookup cfgdat section var)))
    (if valstr
	(val->alist valstr)
	'()))) ;; should it return empty list or #f to indicate not set?


(define (get-section cfgdat section)
  (hash-table-ref/default cfgdat section '()))

(define (common:make-tmpdir-name areapath tmpadj)
  (let* ((area (pathname-file areapath))
         (dname (conc "/tmp/"(current-user-name)"/megatest_localdb/" area "/" (string-translate areapath "/" ".") tmpadj "/.mtdb")))
    (unless (directory-exists? dname)
      (create-directory dname #t))
    dname))








<
<
<







588
589
590
591
592
593
594



595
596
597
598
599
600
601
  ;; convert string a=1; b=2; c=a silly thing; d=
  (let ((valstr (lookup cfgdat section var)))
    (if valstr
	(val->alist valstr)
	'()))) ;; should it return empty list or #f to indicate not set?





(define (common:make-tmpdir-name areapath tmpadj)
  (let* ((area (pathname-file areapath))
         (dname (conc "/tmp/"(current-user-name)"/megatest_localdb/" area "/" (string-translate areapath "/" ".") tmpadj "/.mtdb")))
    (unless (directory-exists? dname)
      (create-directory dname #t))
    dname))

Modified configfmod.scm from [8c4c9bcd5b] to [2804d0750e].

23
24
25
26
27
28
29
30






31
32
33
34
35
36
37
(declare (uses commonmod))
(declare (uses processmod))
(declare (uses mtargs))

(use regex regex-case)

(module configfmod
*	







(import scheme
        chicken
	extras
	files
	matchable
	ports







<
>
>
>
>
>
>







23
24
25
26
27
28
29

30
31
32
33
34
35
36
37
38
39
40
41
42
(declare (uses commonmod))
(declare (uses processmod))
(declare (uses mtargs))

(use regex regex-case)

(module configfmod

	(
	 lookup
	 configf:lookup
	 get-section
	 configf:get-section
	 )

(import scheme
        chicken
	extras
	files
	matchable
	ports
201
202
203
204
205
206
207


208
209
210
211
212
213
214
	    #f
	    (let ((match (assoc var sectdat)))
	      (if match ;; (and match (list? match)(> (length match) 1))
		  (cadr match)
		  #f))
	    ))
      #f))



;; use to have definitive setting:
;;  [foo]
;;  var yes
;;
;;  (configf:var-is? cfgdat "foo" "var" "yes") => #t
;;







>
>







206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
	    #f
	    (let ((match (assoc var sectdat)))
	      (if match ;; (and match (list? match)(> (length match) 1))
		  (cadr match)
		  #f))
	    ))
      #f))

(define lookup configf:lookup)

;; use to have definitive setting:
;;  [foo]
;;  var yes
;;
;;  (configf:var-is? cfgdat "foo" "var" "yes") => #t
;;
232
233
234
235
236
237
238


239
240
241
242
243
244
245
  (let ((sectdat (hash-table-ref/default cfgdat section '())))
    (if (null? sectdat)
	'()
	(map car sectdat))))

(define (configf:get-section cfgdat section)
  (hash-table-ref/default cfgdat section '()))



(define (configf:set-section-var cfgdat section var val)
  (let ((sectdat (configf:get-section cfgdat section)))
    (hash-table-set! cfgdat section
                     (configf:assoc-safe-add sectdat var val))))

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







>
>







239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
  (let ((sectdat (hash-table-ref/default cfgdat section '())))
    (if (null? sectdat)
	'()
	(map car sectdat))))

(define (configf:get-section cfgdat section)
  (hash-table-ref/default cfgdat section '()))

(define get-section configf:get-section)

(define (configf:set-section-var cfgdat section var val)
  (let ((sectdat (configf:get-section cfgdat section)))
    (hash-table-set! cfgdat section
                     (configf:assoc-safe-add sectdat var val))))

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

Modified cpumod.scm from [33a302895b] to [338168220c].

27
28
29
30
31
32
33

34
35
36
37
38
39
40
41
(declare (unit cpumod))
(declare (uses debugprint))
(declare (uses mtargs))

(use srfi-69)

(module cpumod

	*

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







>
|







27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
(declare (unit cpumod))
(declare (uses debugprint))
(declare (uses mtargs))

(use srfi-69)

(module cpumod
	()
       

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports

Modified dashboard-context-menu.scm from [a9287541e5] to [c308418947].

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
(import (prefix iup iup:))

(use canvas-draw)

(use srfi-1 posix regex regex-case srfi-69)
(use (prefix sqlite3 sqlite3:))

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

(import commonmod
	configfmod
	rmtmod
	testsmod







|







42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
(import (prefix iup iup:))

(use canvas-draw)

(use srfi-1 posix regex regex-case srfi-69)
(use (prefix sqlite3 sqlite3:))

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

(import commonmod
	configfmod
	rmtmod
	testsmod

Modified dashboard-guimonitor.scm from [14af79287f] to [d7f5af88af].

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

(declare (unit dashboard-guimonitor))
(declare (uses common))
(declare (uses keys))
(declare (uses commonmod))
(import commonmod)

(include "common_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")

(define (control-panel db tdb keys)
  (let* ((var-params (make-hash-table)) ;; register all the widgets here for querying on run, rollup, remove?
	 (key-params (make-hash-table))







|







33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

(declare (unit dashboard-guimonitor))
(declare (uses common))
(declare (uses keys))
(declare (uses commonmod))
(import commonmod)

;; (include "common_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")

(define (control-panel db tdb keys)
  (let* ((var-params (make-hash-table)) ;; register all the widgets here for querying on run, rollup, remove?
	 (key-params (make-hash-table))

Modified dashboard-tests.scm from [9f47337a67] to [5c975d5a1c].

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
	dbfile
	tasksmod
	testsmod
	runsmod
	subrunmod
	)

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

;;======================================================================
;; C O M M O N
;;======================================================================








|







59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
	dbfile
	tasksmod
	testsmod
	runsmod
	subrunmod
	)

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

;;======================================================================
;; C O M M O N
;;======================================================================

Modified dashboard.scm from [0974058261] to [e6df99a16d].

105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
	stml2
	megatestmod
	tasksmod
	runsmod
	testsmod
	)

(include "common_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-version.scm")
(include "megatest-fossil-hash.scm")
(include "vg_records.scm")








|







105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
	stml2
	megatestmod
	tasksmod
	runsmod
	testsmod
	)

;; (include "common_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
(include "megatest-version.scm")
(include "megatest-fossil-hash.scm")
(include "vg_records.scm")

Modified dbmod.scm from [6fddda802c] to [fbe6ad1d2c].

24
25
26
27
28
29
30
31

32
33
34
35
36
37
38
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses debugprint))
(declare (uses mtargs))
(declare (uses mtmod))

(module dbmod
	*

	
(import scheme)
	
(cond-expand
 (chicken-4
  (import chicken
	  data-structures







<
>







24
25
26
27
28
29
30

31
32
33
34
35
36
37
38
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses debugprint))
(declare (uses mtargs))
(declare (uses mtmod))

(module dbmod

()
	
(import scheme)
	
(cond-expand
 (chicken-4
  (import chicken
	  data-structures
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
	commonmod
	configfmod
	dbfile
	debugprint
	mtmod
	)

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

(define *number-of-writes* 0)
(define *number-non-write-queries* 0)








|







77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
	commonmod
	configfmod
	dbfile
	debugprint
	mtmod
	)

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

(define *number-of-writes* 0)
(define *number-non-write-queries* 0)

Modified dcommon.scm from [d0a5600c78] to [bda06bf5b7].

38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
	configfmod
	rmtmod
        testsmod
        dbmod
	debugprint)

(include "megatest-version.scm")
(include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")
(include "run_records.scm")

;; yes, this is non-ideal 
(define dashboard:update-summary-tab #f)
(define dashboard:update-servers-table #f)







|







38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
	configfmod
	rmtmod
        testsmod
        dbmod
	debugprint)

(include "megatest-version.scm")
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")
(include "run_records.scm")

;; yes, this is non-ideal 
(define dashboard:update-summary-tab #f)
(define dashboard:update-servers-table #f)

Modified diff-report.scm from [939aa5e4ab] to [2fd0ddce36].

21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(declare (uses debugprint))
(declare (uses rmtmod))
(declare (uses commonmod))
(import commonmod
	rmtmod
	debugprint)
         
(include "common_records.scm")
(use matchable)
(use fmt)
(use ducttape-lib)
(define css "")

(define (diff:tests-mindat->hash tests-mindat)
  (let* ((res (make-hash-table)))







|







21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(declare (uses debugprint))
(declare (uses rmtmod))
(declare (uses commonmod))
(import commonmod
	rmtmod
	debugprint)
         
;; (include "common_records.scm")
(use matchable)
(use fmt)
(use ducttape-lib)
(define css "")

(define (diff:tests-mindat->hash tests-mindat)
  (let* ((res (make-hash-table)))

Modified ezstepsmod.scm from [0f672c5b01] to [ff6068567c].

43
44
45
46
47
48
49
50

51
52
53
54
55
56
57
(declare (uses testsmod))
(declare (uses runsmod))
(declare (uses fsmod))

(use srfi-69)

(module ezstepsmod
	*


(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>







43
44
45
46
47
48
49

50
51
52
53
54
55
56
57
(declare (uses testsmod))
(declare (uses runsmod))
(declare (uses fsmod))

(use srfi-69)

(module ezstepsmod

	()

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
	tasksmod
	subrunmod
	testsmod
	runsmod
	fsmod
	)

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


;;(rmt:get-test-info-by-id run-id test-id) -> testdat








|







124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
	tasksmod
	subrunmod
	testsmod
	runsmod
	fsmod
	)

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


;;(rmt:get-test-info-by-id run-id test-id) -> testdat

Modified fsmod.scm from [57a2c983b3] to [4a6fab4260].

31
32
33
34
35
36
37
38


39
40
41
42
43
44
45
(declare (uses configfmod))
(declare (uses commonmod))
(declare (uses processmod))

(use srfi-69)

(module fsmod
	*



(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>







31
32
33
34
35
36
37

38
39
40
41
42
43
44
45
46
(declare (uses configfmod))
(declare (uses commonmod))
(declare (uses processmod))

(use srfi-69)

(module fsmod

	(
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports

Modified launch.scm from [60c51037a0] to [08710a0aca].

44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
     typed-records pathname-expand matchable)

(import (prefix base64 base64:)
	(prefix sqlite3 sqlite3:)
	(prefix mtargs args:)
)

(include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "megatest-fossil-hash.scm")

(import commonmod
	processmod
	configfmod







|







44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
     typed-records pathname-expand matchable)

(import (prefix base64 base64:)
	(prefix sqlite3 sqlite3:)
	(prefix mtargs args:)
)

;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "megatest-fossil-hash.scm")

(import commonmod
	processmod
	configfmod

Modified launchmod.scm from [46f91d6b1b] to [8537366471].

42
43
44
45
46
47
48
49


50
51
52
53
54
55
56
(declare (uses testsmod))
(declare (uses runsmod))
(declare (uses fsmod))

(use srfi-69)

(module launchmod
	*



(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>







42
43
44
45
46
47
48

49
50
51
52
53
54
55
56
57
(declare (uses testsmod))
(declare (uses runsmod))
(declare (uses fsmod))

(use srfi-69)

(module launchmod

	(
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
	tasksmod
	subrunmod
	testsmod
	runsmod
	fsmod
	)

(include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "megatest-fossil-hash.scm")

;;======================================================================
;; ezsteps
;;======================================================================







|







125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
	tasksmod
	subrunmod
	testsmod
	runsmod
	fsmod
	)

;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "megatest-fossil-hash.scm")

;;======================================================================
;; ezsteps
;;======================================================================

Modified megatest.scm from [faeb3396e2] to [ed279adec4].

119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
	rmtmod
	launchmod
	fsmod
        )

(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")
(include "megatest-fossil-hash.scm")

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:))
(use readline apropos json http-client directory-utils typed-records)







|







119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
	rmtmod
	launchmod
	fsmod
        )

(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")
(include "megatest-fossil-hash.scm")

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:))
(use readline apropos json http-client directory-utils typed-records)

Modified megatestmod.scm from [a70a654362] to [6b2a3fefa4].

36
37
38
39
40
41
42
43


44
45
46
47
48
49
50
(declare (uses pkts))
(declare (uses servermod))
(declare (uses fsmod))

(use srfi-69)

(module megatestmod
	*



(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>







36
37
38
39
40
41
42

43
44
45
46
47
48
49
50
51
(declare (uses pkts))
(declare (uses servermod))
(declare (uses fsmod))

(use srfi-69)

(module megatestmod

	(
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports

Modified monitor.scm from [11b5fa345e] to [d504b4ec3b].

23
24
25
26
27
28
29
30
31
32
33
34
(declare (unit runs))
(declare (uses common))

(declare (uses runconfig))
(declare (uses commonmod))
(import commonmod)

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








|




23
24
25
26
27
28
29
30
31
32
33
34
(declare (unit runs))
(declare (uses common))

(declare (uses runconfig))
(declare (uses commonmod))
(import commonmod)

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

Modified mt.scm from [f24a9e55ce] to [a034bfff85].

39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
	configfmod
	rmtmod
	megatestmod)

;; make mt: calls in megatestmod work
;; (read-config-set! read-config)

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

;; This is the Megatest API. All generally "useful" routines will be wrapped or extended
;; here.







|







39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
	configfmod
	rmtmod
	megatestmod)

;; make mt: calls in megatestmod work
;; (read-config-set! read-config)

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

;; This is the Megatest API. All generally "useful" routines will be wrapped or extended
;; here.

Modified mtmod.scm from [b742c926fe] to [6035871247].

30
31
32
33
34
35
36
37


38
39
40
41
42
43
44
(declare (uses commonmod))
(declare (uses configfmod))
;; (declare (uses tcp-transportmod)) ;; we don't want mtmod depending on tcp

(use srfi-69)

(module mtmod
	*



(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>







30
31
32
33
34
35
36

37
38
39
40
41
42
43
44
45
(declare (uses commonmod))
(declare (uses configfmod))
;; (declare (uses tcp-transportmod)) ;; we don't want mtmod depending on tcp

(use srfi-69)

(module mtmod

	(
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports

Modified odsmod.scm from [9072959ec4] to [65e4e62b3c].

21
22
23
24
25
26
27
28


29
30
31
32
33
34
35
(declare (uses common))
(declare (uses commonmod))
(declare (uses debugprint))
(declare (uses dbfile))
(declare (uses dbmod))

(module odsmod
	*


	
(import scheme
	chicken
	data-structures
	extras
	posix
	ports







<
>
>







21
22
23
24
25
26
27

28
29
30
31
32
33
34
35
36
(declare (uses common))
(declare (uses commonmod))
(declare (uses debugprint))
(declare (uses dbfile))
(declare (uses dbmod))

(module odsmod

	(
	 )
	
(import scheme
	chicken
	data-structures
	extras
	posix
	ports

Modified processmod.scm from [1cce7c0878] to [75e84b2970].

21
22
23
24
25
26
27


28

29
30
31
32
33
34
35
(declare (unit processmod))
(declare (uses debugprint))
(declare (uses commonmod))

(use srfi-69)

(module processmod


	*


(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







>
>
|
>







21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(declare (unit processmod))
(declare (uses debugprint))
(declare (uses commonmod))

(use srfi-69)

(module processmod
	(
	 process:cmd-run->list

	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports

Modified rmtmod.scm from [f16c2416fe] to [3e961c57f1].

26
27
28
29
30
31
32


33

34
35
36
37
38
39
40
(declare (uses dbmod))
(declare (uses mtmod))
(declare (uses tcp-transportmod))
(declare (uses apimod))
(declare (uses servermod))

(module rmtmod


	*

	
(import scheme
	chicken
	data-structures
	regex
	extras
	matchable







>
>
|
>







26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
(declare (uses dbmod))
(declare (uses mtmod))
(declare (uses tcp-transportmod))
(declare (uses apimod))
(declare (uses servermod))

(module rmtmod
	(
	 rmtmod:send-receive

	 )
	
(import scheme
	chicken
	data-structures
	regex
	extras
	matchable

Modified runconfig.scm from [5664220be3] to [4f3ecb1f38].

26
27
28
29
30
31
32
33
34
(declare (uses common))
(declare (uses debugprint))
(declare (uses commonmod))

(import commonmod
	debugprint)

(include "common_records.scm")








|

26
27
28
29
30
31
32
33
34
(declare (uses common))
(declare (uses debugprint))
(declare (uses commonmod))

(import commonmod
	debugprint)

;; (include "common_records.scm")

Modified runs.scm from [647460790c] to [5b967ec7eb].

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

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
     posix-extras directory-utils pathname-expand typed-records format  sxml-serializer
     sxml-modifications matchable)



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

;; (include "debugger.scm")








|







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

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
     posix-extras directory-utils pathname-expand typed-records format  sxml-serializer
     sxml-modifications matchable)



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

;; (include "debugger.scm")

Modified runsmod.scm from [251bedfaeb] to [135fde13aa].

42
43
44
45
46
47
48
49


50
51
52
53
54
55
56
(declare (uses subrunmod))
(declare (uses archivemod))
(declare (uses fsmod))

(use srfi-69)

(module runsmod
	*



(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>







42
43
44
45
46
47
48

49
50
51
52
53
54
55
56
57
(declare (uses subrunmod))
(declare (uses archivemod))
(declare (uses fsmod))

(use srfi-69)

(module runsmod

	(
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
	tasksmod
	testsmod
	subrunmod
	archivemod
	fsmod
	)

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

;; use this struct to facilitate refactoring
;;







|







126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
	tasksmod
	testsmod
	subrunmod
	archivemod
	fsmod
	)

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

;; use this struct to facilitate refactoring
;;

Modified server.scm from [3cd1085ec7] to [6c3c9bb98f].

32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
(use spiffy uri-common intarweb http-client spiffy-request-vars)

(import commonmod
	configfmod
	debugprint
	(prefix mtargs args:))

(include "common_records.scm")
;; (include "db_records.scm")

(define (db:kill-servers)
  (let* ((tl (launch:setup)) ;; need this to initialize *toppath*
        (servdir (conc *toppath* "/.servinfo"))
        (servfiles (glob (conc servdir "/*:*.db")))
        (fmtstr  "~10a~22a~10a~25a~25a~8a\n")







|







32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
(use spiffy uri-common intarweb http-client spiffy-request-vars)

(import commonmod
	configfmod
	debugprint
	(prefix mtargs args:))

;; (include "common_records.scm")
;; (include "db_records.scm")

(define (db:kill-servers)
  (let* ((tl (launch:setup)) ;; need this to initialize *toppath*
        (servdir (conc *toppath* "/.servinfo"))
        (servfiles (glob (conc servdir "/*:*.db")))
        (fmtstr  "~10a~22a~10a~25a~25a~8a\n")

Modified servermod.scm from [5384b281b4] to [645e9767b0].

21
22
23
24
25
26
27
28


29
30
31
32
33
34
35
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses mtmod))
(declare (uses debugprint))
(declare (uses mtargs))

(module servermod
	*



(import scheme
	chicken)
	
(use (srfi 18) extras s11n)
(use srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest)
(use directory-utils posix-extras matchable utils)







<
>
>







21
22
23
24
25
26
27

28
29
30
31
32
33
34
35
36
(declare (uses commonmod))
(declare (uses configfmod))
(declare (uses mtmod))
(declare (uses debugprint))
(declare (uses mtargs))

(module servermod

	(
	 )

(import scheme
	chicken)
	
(use (srfi 18) extras s11n)
(use srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest)
(use directory-utils posix-extras matchable utils)
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
	commonmod
	configfmod
	debugprint
	(prefix mtargs args:)
	mtmod
	)

(include "common_records.scm")
;; (include "db_records.scm")

(define (server:make-server-url hostport)
  (if (not hostport)
      #f
      (conc "http://" (car hostport) ":" (cadr hostport))))








|







45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
	commonmod
	configfmod
	debugprint
	(prefix mtargs args:)
	mtmod
	)

;; (include "common_records.scm")
;; (include "db_records.scm")

(define (server:make-server-url hostport)
  (if (not hostport)
      #f
      (conc "http://" (car hostport) ":" (cadr hostport))))

Modified subrunmod.scm from [ddf54f1377] to [f9fbf4371e].

38
39
40
41
42
43
44
45


46
47
48
49
50
51
52
(declare (uses mtmod))
(declare (uses megatestmod))
(declare (uses tasksmod))

(use srfi-69)

(module subrunmod
	*



(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>







38
39
40
41
42
43
44

45
46
47
48
49
50
51
52
53
(declare (uses mtmod))
(declare (uses megatestmod))
(declare (uses tasksmod))

(use srfi-69)

(module subrunmod

	(
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports

Modified tasksmod.scm from [381a26e6c2] to [434f7131ba].

37
38
39
40
41
42
43
44


45
46
47
48
49
50
51
(declare (uses pgdb))
(declare (uses mtmod))
(declare (uses megatestmod))

(use srfi-69)

(module tasksmod
	*



(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>







37
38
39
40
41
42
43

44
45
46
47
48
49
50
51
52
(declare (uses pgdb))
(declare (uses mtmod))
(declare (uses megatestmod))

(use srfi-69)

(module tasksmod

	(
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports

Modified tcp-transportmod.scm from [1a862ecee9] to [d7197f9de1].

25
26
27
28
29
30
31
32


33
34
35
36
37
38
39
(declare (uses dbmod))
(declare (uses portlogger))
(declare (uses mtmod))

(use address-info tcp)

(module tcp-transportmod
	*


	
(import scheme)

(cond-expand
 (chicken-4
  (import (prefix sqlite3 sqlite3:)
	  chicken







<
>
>







25
26
27
28
29
30
31

32
33
34
35
36
37
38
39
40
(declare (uses dbmod))
(declare (uses portlogger))
(declare (uses mtmod))

(use address-info tcp)

(module tcp-transportmod

	(
	 )
	
(import scheme)

(cond-expand
 (chicken-4
  (import (prefix sqlite3 sqlite3:)
	  chicken

Modified tdb.scm from [e7e7aee13a] to [536924ea4c].

37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
(import (prefix base64 base64:))

(import commonmod
	debugprint
	rmtmod
	(prefix mtargs args:))

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

;;======================================================================
;;
;; T E S T   D A T A B A S E S







|







37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
(import (prefix base64 base64:))

(import commonmod
	debugprint
	rmtmod
	(prefix mtargs args:))

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

;;======================================================================
;;
;; T E S T   D A T A B A S E S

Modified testsmod.scm from [342c5ad45d] to [15ae1fecd5].

37
38
39
40
41
42
43
44



45
46
47
48
49
50
51
(declare (uses mtmod))
(declare (uses servermod))
(declare (uses fsmod))

(use srfi-69)

(module testsmod
	*




(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports







<
>
>
>







37
38
39
40
41
42
43

44
45
46
47
48
49
50
51
52
53
(declare (uses mtmod))
(declare (uses servermod))
(declare (uses fsmod))

(use srfi-69)

(module testsmod

	(
	 tests:summarize-items
	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
	rmtmod
	stml2
	mtmod
	servermod
	fsmod
	)

(include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
;; (include "test_records.scm")
(include "js-path.scm")

(define (init-java-script-lib)







|







125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
	rmtmod
	stml2
	mtmod
	servermod
	fsmod
	)

;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
(include "run_records.scm")
;; (include "test_records.scm")
(include "js-path.scm")

(define (init-java-script-lib)

Modified tree.scm from [5b26f8b9f9] to [c97437439f].

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))

(import (prefix mtargs args:)
	debugprint)

(include "megatest-version.scm")
(include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")

;;======================================================================
;; T R E E   S T U F F 
;;======================================================================








|







34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(use sqlite3 srfi-1 posix regex regex-case srfi-69)
(import (prefix sqlite3 sqlite3:))

(import (prefix mtargs args:)
	debugprint)

(include "megatest-version.scm")
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")

;;======================================================================
;; T R E E   S T U F F 
;;======================================================================

Added utils/extract-export-list.sh version [d50045d1ff].



























>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/bin/bash

LAST_PARENT=foobar

for fn in $(grep 'Warning: refer' typescript |tr '`' ' '|tr "'" " "|awk '{print $7}');do
    PARENT=$(grep $fn *mod.scm|grep define|cut -d: -f1)
    if [[ $PARENT != $LAST_PARENT ]];then
	echo
	echo $PARENT
	LAST_PARENT=$PARENT
    fi
    echo $fn
done