Megatest

Check-in [5de6734970]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:removed all imports of debugprint and still can't run megatest exe
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-reshape-no-debugprint
Files: files | file ages | folders
SHA1: 5de6734970167feb60de031da8a483af524e14d3
User & Date: matt on 2023-01-30 22:06:47
Other Links: branch diff | manifest | tags
Context
2023-01-31
06:47
Re-arranged uses and imports and it worked better Leaf check-in: f308bbcbc0 user: matt tags: v1.80-reshape-no-debugprint
2023-01-30
22:06
removed all imports of debugprint and still can't run megatest exe check-in: 5de6734970 user: matt tags: v1.80-reshape-no-debugprint
20:20
wip check-in: a51a5d6058 user: matt tags: v1.80-reshape
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified api.scm from [fb1ad3313e] to [f69c2b585a].

︙︙
29
30
31
32
33
34
35
36

37
38
39
40
41
42
43

(declare (uses dbfile))
(declare (uses tasks))
(declare (uses debugprint))

(import dbmod)
(import dbfile)
(import rmtmod
	debugprint)


(define *db-write-mutexes* (make-hash-table))

;; These are called by the server on recipt of /api calls
;;    - keep it simple, only return the actual result of the call, i.e. no meta info here
;;
;;    - returns #( flag result )








|
>








29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

(declare (uses dbfile))
(declare (uses tasks))
(declare (uses debugprint))

(import dbmod)
(import dbfile)
(import rmtmod
	;; debugprint
	)

(define *db-write-mutexes* (make-hash-table))

;; These are called by the server on recipt of /api calls
;;    - keep it simple, only return the actual result of the call, i.e. no meta info here
;;
;;    - returns #( flag result )
︙︙

Modified archive.scm from [7a56d0b0c3] to [bcfe2cf139].

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

(declare (uses db))
(declare (uses common))
(declare (uses debugprint))

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

(import debugprint)

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

;; NOT CURRENTLY USED
;;








|








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

(declare (uses db))
(declare (uses common))
(declare (uses debugprint))

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

;; (import debugprint)

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

;; NOT CURRENTLY USED
;;
︙︙

Modified clientmod.scm from [cfb1e9f3ec] to [da91b5b025].

︙︙
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

	posix
	data-structures
	srfi-18
	typed-records

	artifacts
	servermod
	debugprint
	)

(defstruct con ;; client connection
  (hdir       #f) ;; this is the directory sdir/serverhost.serverpid
  (sdir       #f)
  (obj-to-str #f)
  (str-to-obj #f)








|








38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

	posix
	data-structures
	srfi-18
	typed-records

	artifacts
	servermod
	;; debugprint
	)

(defstruct con ;; client connection
  (hdir       #f) ;; this is the directory sdir/serverhost.serverpid
  (sdir       #f)
  (obj-to-str #f)
  (str-to-obj #f)
︙︙

Modified common.scm from [edacec5a50] to [8c719325d3].

︙︙
28
29
30
31
32
33
34
35

36
37
38
39
40
41
42

     )

(declare (unit common))
(declare (uses commonmod))
(declare (uses debugprint))

(import commonmod
	debugprint)


(include "common_records.scm")


;; (require-library margs)
;; (include "margs.scm")









|
>








28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

     )

(declare (unit common))
(declare (uses commonmod))
(declare (uses debugprint))

(import commonmod
	;; debugprint
	)

(include "common_records.scm")


;; (require-library margs)
;; (include "margs.scm")
︙︙

Modified configf.scm from [a8ff1d05bd] to [87c2b364e6].

︙︙
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

(declare (uses process))
(declare (uses env))
(declare (uses keys))
(declare (uses debugprint))

(include "common_records.scm")

(import debugprint)

;; return list (path fullpath configname)
(define (find-config configname #!key (toppath #f))
  (if toppath
      (let ((cfname (conc toppath "/" configname)))
	(if (common:file-exists? cfname)
	    (list toppath cfname configname)








|








27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

(declare (uses process))
(declare (uses env))
(declare (uses keys))
(declare (uses debugprint))

(include "common_records.scm")

;; (import debugprint)

;; return list (path fullpath configname)
(define (find-config configname #!key (toppath #f))
  (if toppath
      (let ((cfname (conc toppath "/" configname)))
	(if (common:file-exists? cfname)
	    (list toppath cfname configname)
︙︙

Modified configfmod.scm from [5f13eb2f6f] to [704df64a44].

︙︙
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

;;	chicken.process-context
;;	chicken.process-context.posix
;;	chicken.sort
;;	chicken.string
;;	chicken.time
;;	chicken.eval
;;	
	debugprint
	(prefix mtargs args:)
;;	pkts
;;	keysmod
;;
;;	(prefix base64 base64:)
;;	(prefix dbi dbi:)
;;	(prefix sqlite3 sqlite3:)








|








42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

;;	chicken.process-context
;;	chicken.process-context.posix
;;	chicken.sort
;;	chicken.string
;;	chicken.time
;;	chicken.eval
;;	
;;	debugprint
	(prefix mtargs args:)
;;	pkts
;;	keysmod
;;
;;	(prefix base64 base64:)
;;	(prefix dbi dbi:)
;;	(prefix sqlite3 sqlite3:)
︙︙

Modified dashboard-context-menu.scm from [e159de1324] to [5ecacce2af].

︙︙
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

(declare (uses debugprint))


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

(import debugprint)

(define (dboard:launch-testpanel run-id test-id)
  (let* ((dboardexe (common:find-local-megatest "dashboard"))
         (cmd (conc dboardexe
                    " -test " run-id "," test-id
                    " &")))
    (system cmd)))








|








44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

(declare (uses debugprint))


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

;; (import debugprint)

(define (dboard:launch-testpanel run-id test-id)
  (let* ((dboardexe (common:find-local-megatest "dashboard"))
         (cmd (conc dboardexe
                    " -test " run-id "," test-id
                    " &")))
    (system cmd)))
︙︙

Modified dashboard.scm from [0d8f853388] to [eccd259500].

︙︙
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

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

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

(import debugprint)

(dbfile:db-init-proc db:initialize-main-db)

(define help (conc 
	      "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version 
              " license GPL, Copyright (C) Matt Welland 2012-2017









|








53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

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

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

;; (import debugprint)

(dbfile:db-init-proc db:initialize-main-db)

(define help (conc 
	      "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version 
              " license GPL, Copyright (C) Matt Welland 2012-2017
︙︙

Modified db.scm from [da2478eb1d] to [5080053a94].

︙︙
62
63
64
65
66
67
68
69

70
71
72
73
74
75
76

(include "run_records.scm")

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

(import dbmod
	dbfile
	debugprint)


;; record for keeping state,status and count for doing roll-ups in
;; iterated tests
;;
(defstruct dbr:counts
  (state #f)
  (status #f)








|
>








62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

(include "run_records.scm")

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

(import dbmod
	dbfile
	;; debugprint
	)

;; record for keeping state,status and count for doing roll-ups in
;; iterated tests
;;
(defstruct dbr:counts
  (state #f)
  (status #f)
︙︙

Modified dbfile.scm from [bea959c089] to [0a6b9f739f].

︙︙
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

	posix typed-records srfi-18 srfi-1
	srfi-69
	stack
	files
	ports

	commonmod
	debugprint
	)

;;======================================================================
;;  R E C O R D S
;;======================================================================

;; a single Megatest area with it's multiple dbs is








|








35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

	posix typed-records srfi-18 srfi-1
	srfi-69
	stack
	files
	ports

	commonmod
	;; debugprint
	)

;;======================================================================
;;  R E C O R D S
;;======================================================================

;; a single Megatest area with it's multiple dbs is
︙︙

Modified dcommon.scm from [960040782d] to [08def52f2a].

︙︙
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43


(declare (uses gutils))
(declare (uses db))
(declare (uses commonmod))
(declare (uses debugprint))

(import commonmod
	debugprint
	)
;; (declare (uses synchash))

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








|








29
30
31
32
33
34
35
36
37
38
39
40
41
42
43


(declare (uses gutils))
(declare (uses db))
(declare (uses commonmod))
(declare (uses debugprint))

(import commonmod
	;; debugprint
	)
;; (declare (uses synchash))

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

Modified diff-report.scm from [350245269f] to [4cec165569].

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

(declare (uses rmtmod))
(declare (uses debugprint))
         
(include "common_records.scm")
(use matchable)
(use fmt)
(use ducttape-lib)
(import debugprint)

(define css "")

(define (diff:tests-mindat->hash tests-mindat)
  (let* ((res (make-hash-table)))
    (for-each
     (lambda (item)








|








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

(declare (uses rmtmod))
(declare (uses debugprint))
         
(include "common_records.scm")
(use matchable)
(use fmt)
(use ducttape-lib)
;; (import debugprint)

(define css "")

(define (diff:tests-mindat->hash tests-mindat)
  (let* ((res (make-hash-table)))
    (for-each
     (lambda (item)
︙︙

Modified env.scm from [2156bd5c58] to [63040dd8a5].

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

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

(declare (unit env))
(declare (uses debugprint))

(use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)

(import debugprint)

(define (env:open-db fname)
  (let* ((db-exists (common:file-exists? fname))
	 (db        (open-database fname)))
    (if (not db-exists)
	(begin
	  (exec (sql db "CREATE TABLE envvars (








|








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

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

(declare (unit env))
(declare (uses debugprint))

(use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)

;; (import debugprint)

(define (env:open-db fname)
  (let* ((db-exists (common:file-exists? fname))
	 (db        (open-database fname)))
    (if (not db-exists)
	(begin
	  (exec (sql db "CREATE TABLE envvars (
︙︙

Modified ezsteps.scm from [e652536dac] to [9ec9d1ddb6].

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

;; (declare (uses filedb))

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

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

;; TODO: deprecate me in favor of ezsteps.scm
;;
(define (launch:runstep ezstep run-id test-id exit-info m tal testconfig all-steps-dat)
  (let* ((stepname       (car ezstep))  ;; do stuff to run the step
	 (stepinfo       (cadr ezstep))








|








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

;; (declare (uses filedb))

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

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

;; TODO: deprecate me in favor of ezsteps.scm
;;
(define (launch:runstep ezstep run-id test-id exit-info m tal testconfig all-steps-dat)
  (let* ((stepname       (car ezstep))  ;; do stuff to run the step
	 (stepinfo       (cadr ezstep))
︙︙

Modified genexample.scm from [83a6a2da50] to [41574e91a8].

︙︙
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32


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

(declare (unit genexample))
(declare (uses debugprint))

(use posix regex matchable)
(import debugprint)

(include "db_records.scm")

(define genexample:example-logpro
#<<EOF
  ;; You should have at least one expect:required. This ensures that your process ran
  ;; comment out the line below and replace "put pattern here" with a pattern that will








|








18
19
20
21
22
23
24
25
26
27
28
29
30
31
32


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

(declare (unit genexample))
(declare (uses debugprint))

(use posix regex matchable)
;; (import debugprint)

(include "db_records.scm")

(define genexample:example-logpro
#<<EOF
  ;; You should have at least one expect:required. This ensures that your process ran
  ;; comment out the line below and replace "put pattern here" with a pattern that will
︙︙

Modified items.scm from [b819f8ae5b] to [0b4646dcb9].

︙︙
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


(declare (unit items))
(declare (uses common))
(declare (uses debugprint))

(include "common_records.scm")

(import debugprint)

;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
  (let ((res '()))
    (if (not hierdepth)
	(set! hierdepth (length itemlist)))
    (let loop ((hed (car itemlist))








|








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


(declare (unit items))
(declare (uses common))
(declare (uses debugprint))

(include "common_records.scm")

;; (import debugprint)

;; Puts out all combinations
(define (process-itemlist hierdepth curritemkey itemlist)
  (let ((res '()))
    (if (not hierdepth)
	(set! hierdepth (length itemlist)))
    (let loop ((hed (car itemlist))
︙︙

Modified keys.scm from [d9a1882f80] to [86fab5099e].

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

(declare (unit keys))
(declare (uses common))
(declare (uses debugprint))

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

(import debugprint)
	

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

(define (keys->keystr keys) ;; => key1,key2,key3,additiona1, ...
  (string-intersperse keys ","))








|








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

(declare (unit keys))
(declare (uses common))
(declare (uses debugprint))

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

;; (import debugprint)
	

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

(define (keys->keystr keys) ;; => key1,key2,key3,additiona1, ...
  (string-intersperse keys ","))
︙︙

Modified launch.scm from [fed129a191] to [3d2278b989].

︙︙
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

(declare (uses debugprint))

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

(import debugprint)

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

;; ezsteps were going to be coded as
;; stepname[,predstep1,predstep2 ...] [{VAR1=first,second,third}] command to execute








|








37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

(declare (uses debugprint))

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

;; (import debugprint)

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

;; ezsteps were going to be coded as
;; stepname[,predstep1,predstep2 ...] [{VAR1=first,second,third}] command to execute
︙︙

Modified lock-queue.scm from [8e6c749c60] to [0447d3fa52].

︙︙
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32


(declare (unit lock-queue))
(declare (uses common))
(declare (uses tasks))
(declare (uses debugprint))

(use (prefix sqlite3 sqlite3:) srfi-18)
(import debugprint)

;;======================================================================
;; attempt to prevent overlapping updates of rollup files by queueing
;; update requests in an sqlite db
;;======================================================================

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








|








18
19
20
21
22
23
24
25
26
27
28
29
30
31
32


(declare (unit lock-queue))
(declare (uses common))
(declare (uses tasks))
(declare (uses debugprint))

(use (prefix sqlite3 sqlite3:) srfi-18)
;; (import debugprint)

;;======================================================================
;; attempt to prevent overlapping updates of rollup files by queueing
;; update requests in an sqlite db
;;======================================================================

;;======================================================================
︙︙

Modified megatest.scm from [555218ae3b] to [02819968ec].

︙︙
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

(declare (uses clientmod))
(declare (uses servermod))
(declare (uses commonmod))
(declare (uses commonmod.import))
(declare (uses dbfile))
(declare (uses dbfile.import))
(declare (uses debugprint))
(declare (uses debugprint.import))
;; (declare (uses mtargs))
;; (declare (uses mtargs.import))

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

(import dbmod
	commonmod
	dbfile
	servermod

	debugprint
	)

(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")








|










>
|








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

(declare (uses clientmod))
(declare (uses servermod))
(declare (uses commonmod))
(declare (uses commonmod.import))
(declare (uses dbfile))
(declare (uses dbfile.import))
(declare (uses debugprint))
;; (declare (uses debugprint.import))
;; (declare (uses mtargs))
;; (declare (uses mtargs.import))

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

(import dbmod
	commonmod
	dbfile
	servermod
	;; debugprint.import
	;; debugprint
	)

(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")
︙︙

Modified mt.scm from [1abbf767e0] to [e9aaac3ad9].

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


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

(import debugprint)

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

;;======================================================================
;;  R U N S
;;======================================================================








|








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


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

;; (import debugprint)

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

;;======================================================================
;;  R U N S
;;======================================================================
︙︙

Modified mtut.scm from [f9bdb0fdb0] to [a5cf87019e].

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

(declare (uses margs))
(declare (uses configf))
;; (declare (uses rmt))
(declare (uses debugprint))

(use ducttape-lib)

(import debugprint)

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

(require-library stml)

;; stuff for the mapper and checker functions
;;








|








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

(declare (uses margs))
(declare (uses configf))
;; (declare (uses rmt))
(declare (uses debugprint))

(use ducttape-lib)

;; (import debugprint)

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

(require-library stml)

;; stuff for the mapper and checker functions
;;
︙︙

Modified newdashboard.scm from [db5c39b7a4] to [5c2e8b57fe].

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

(declare (uses debugprint))

;; (declare (uses tree))
;; 
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")
(import debugprint)

(define help (conc 
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
  version " megatest-version "
  license GPL, Copyright (C) Matt Welland 2011

Usage: dashboard [options]








|








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

(declare (uses debugprint))

;; (declare (uses tree))
;; 
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")
;; (import debugprint)

(define help (conc 
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
  version " megatest-version "
  license GPL, Copyright (C) Matt Welland 2011

Usage: dashboard [options]
︙︙

Modified portlogger.scm from [59aa832bb1] to [96a3168d68].

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


(use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3)
(import (prefix sqlite3 sqlite3:))

(declare (unit portlogger))
(declare (uses db))
(declare (uses debugprint))
(import debugprint)

;; lsof -i

(define (portlogger:open-db fname)
  (let* ((avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
	 (exists   (common:file-exists? fname))
	 (db       (if avail 








|








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


(use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3)
(import (prefix sqlite3 sqlite3:))

(declare (unit portlogger))
(declare (uses db))
(declare (uses debugprint))
;; (import debugprint)

;; lsof -i

(define (portlogger:open-db fname)
  (let* ((avail    (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away
	 (exists   (common:file-exists? fname))
	 (db       (if avail
︙︙

Modified process.scm from [4050043a66] to [05044f9917].

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

;; Process convience utils
;;======================================================================

(use regex directory-utils)
(declare (unit process))
(declare (uses debugprint))

(import debugprint)

(define (process:conservative-read port)
  (let loop ((res ""))
    (if (not (eof-object? (peek-char port)))
	(loop (conc res (read-char port)))
	res)))









|








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

;; Process convience utils
;;======================================================================

(use regex directory-utils)
(declare (unit process))
(declare (uses debugprint))

;; (import debugprint)

(define (process:conservative-read port)
  (let loop ((res ""))
    (if (not (eof-object? (peek-char port)))
	(loop (conc res (read-char port)))
	res)))
︙︙

Modified rmt.scm from [00e4366063] to [86190a84aa].

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

(declare (uses dbfile))
(declare (uses debugprint))

(include "common_records.scm")
;; (declare (uses rmtmod))

(import dbfile
	debugprint
	) ;; rmtmod)

;; ;;
;; ;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
;; ;;
;; 
;; ;; generate entries for ~/.megatestrc with the following








|








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

(declare (uses dbfile))
(declare (uses debugprint))

(include "common_records.scm")
;; (declare (uses rmtmod))

(import dbfile
	;; debugprint
	) ;; rmtmod)

;; ;;
;; ;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
;; ;;
;; 
;; ;; generate entries for ~/.megatestrc with the following
︙︙

Modified runconfig.scm from [6913a95308] to [b77047a591].

︙︙
21
22
23
24
25
26
27

28
29
30
31
32
33
34
35

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

(declare (unit runconfig))
(declare (uses common))
(declare (uses debugprint))

(use format directory-utils)

(import debugprint)

(include "common_records.scm")

(define (runconfig:read fname target environ-patt)
  (let ((ht (make-hash-table)))
    (if target (hash-table-set! ht target '()))
    (read-config fname ht #t environ-patt: environ-patt sections: (if target (list "default" target) #f))))








>
|








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

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

(declare (unit runconfig))
(declare (uses common))
(declare (uses debugprint))

(use format directory-utils)

;; (import debugprint)

(include "common_records.scm")

(define (runconfig:read fname target environ-patt)
  (let ((ht (make-hash-table)))
    (if target (hash-table-set! ht target '()))
    (read-config fname ht #t environ-patt: environ-patt sections: (if target (list "default" target) #f))))
︙︙

Modified runs.scm from [db1439c273] to [9f966e19c7].

︙︙
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49


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

(import debugprint)
;; (include "debugger.scm")

;; use this struct to facilitate refactoring
;;

(defstruct runs:dat
  reglen regfull








|








35
36
37
38
39
40
41
42
43
44
45
46
47
48
49


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

;; (import debugprint)
;; (include "debugger.scm")

;; use this struct to facilitate refactoring
;;

(defstruct runs:dat
  reglen regfull
︙︙

Modified servermod.scm from [b3e225a5e9] to [e8ef35e2b1].

︙︙
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

	posix
	srfi-18

	typed-records
	data-structures

	artifacts
	debugprint
	)

(defstruct srv
  (areapath #f)
  (host     #f)
  (pid      #f)
  (type     #f)








|








35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

	posix
	srfi-18

	typed-records
	data-structures

	artifacts
	;; debugprint
	)

(defstruct srv
  (areapath #f)
  (host     #f)
  (pid      #f)
  (type     #f)
︙︙

Modified subrun.scm from [68aa532b1d] to [3f1eb31590].

︙︙
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

;; (declare (uses filedb))
(declare (uses debugprint))

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
     posix-extras directory-utils pathname-expand typed-records format
     call-with-environment-variables)

(import debugprint)

;(include "common_records.scm")
;;(include "key_records.scm")
(include "db_records.scm") ;; provides db:test-get-id
;;(include "run_records.scm")
;;(include "test_records.scm")









|








31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

;; (declare (uses filedb))
(declare (uses debugprint))

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) 
     posix-extras directory-utils pathname-expand typed-records format
     call-with-environment-variables)

;; (import debugprint)

;(include "common_records.scm")
;;(include "key_records.scm")
(include "db_records.scm") ;; provides db:test-get-id
;;(include "run_records.scm")
;;(include "test_records.scm")
︙︙

Modified tasks.scm from [3a4630abf8] to [84e92d8ec7].

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

(declare (uses db))
(declare (uses rmtmod))
(declare (uses common))
(declare (uses pgdb))
(declare (uses debugprint))

(import dbfile
	debugprint
	)
;; (import pgdb) ;; pgdb is a module

(include "db_records.scm")

;;======================================================================
;; Tasks db








|








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

(declare (uses db))
(declare (uses rmtmod))
(declare (uses common))
(declare (uses pgdb))
(declare (uses debugprint))

(import dbfile
	;; debugprint
	)
;; (import pgdb) ;; pgdb is a module

(include "db_records.scm")

;;======================================================================
;; Tasks db
︙︙

Modified tdb.scm from [c43cba4b5d] to [1aaa951a14].

︙︙
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

(declare (uses debugprint))

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

(import debugprint)

;;======================================================================
;;
;; 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

(declare (uses debugprint))

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

;; (import debugprint)

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

Modified tests.scm from [cbdf45c29c] to [1c5a178da8].

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

(declare (uses items))
(declare (uses runconfig))
;; (declare (uses sdb))
(declare (uses servermod))
;;(declare (uses stml2))
(declare (uses debugprint))

(import debugprint)

(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils)
(import (prefix sqlite3 sqlite3:))
(import commonmod)
(require-library stml)

(include "common_records.scm")








|








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

(declare (uses items))
(declare (uses runconfig))
;; (declare (uses sdb))
(declare (uses servermod))
;;(declare (uses stml2))
(declare (uses debugprint))

;; (import debugprint)

(use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils)
(import (prefix sqlite3 sqlite3:))
(import commonmod)
(require-library stml)

(include "common_records.scm")
︙︙

Modified tree.scm from [018afa4bfc] to [e4f4fe6b37].

︙︙
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

(declare (uses debugprint))

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

(import debugprint)

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

;; path is a list of nodes, each the child of the previous
;; this routine returns the id so another node can be added








|








38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

(declare (uses debugprint))

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

;; (import debugprint)

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

;; path is a list of nodes, each the child of the previous
;; this routine returns the id so another node can be added
︙︙

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