Megatest

Check-in [bbac9c3682]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:convert to use proper interface lists
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.90-proper-interface-lists
Files: files | file ages | folders
SHA1: bbac9c368299f4563db1844a58c2b9ffa5642cc0
User & Date: matt on 2024-02-11 19:49:03
Other Links: branch diff | manifest | tags
Context
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

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