Megatest

Check-in [7a5eb536d0]
Login
Overview
Comment:Got other executables building (not tested at all)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-try3
Files: files | file ages | folders
SHA1: 7a5eb536d0e29f04d7927150d3e8bfa43150191f
User & Date: matt on 2019-11-04 05:18:24
Other Links: branch diff | manifest | tags
Context
2019-11-05
04:54
switch to using mtconfigf check-in: b7a9734bdf user: matt tags: v1.65-try3
2019-11-04
05:18
Got other executables building (not tested at all) check-in: 7a5eb536d0 user: matt tags: v1.65-try3
05:09
removed couple more references to OFILES. check-in: 159145e9c3 user: matt tags: v1.65-try3
Changes

Modified Makefile from [c9328338cf] to [2f4f3f2a42].

120
121
122
123
124
125
126
127

128
129
130


131
132
133
134
135
136
137
120
121
122
123
124
125
126

127
128


129
130
131
132
133
134
135
136
137







-
+

-
-
+
+







#	runconfig.o \
#	runs.o \
#	server.o \
#	tasks.o \
#	tdb.o \
#	tests.o \
#	subrun.o \
TCMTOBJS=$(MOFILES)
TCMTOBJS=

tcmt : $(TCMTOBJS) tcmt.scm
	csc $(CSCOPTS) $(TCMTOBJS) tcmt.scm -o tcmt
tcmt : $(TCMTOBJS) $(MOFILES) tcmt.scm
	csc $(CSCOPTS) $(MOFILES) $(TCMTOBJS) tcmt.scm -o tcmt

# install documentation to $(PREFIX)/docs
# DOES NOT REBUILD DOCS
#
$(PREFIX)/share/docs/megatest_manual.html : docs/manual/megatest_manual.html
	mkdir -p $(PREFIX)/share/docs
	$(INSTALL) docs/manual/megatest_manual.html $(PREFIX)/share/docs/megatest_manual.html

Modified mtexec.scm from [b5282235db] to [ac7a0a03a9].

24
25
26
27
28
29
30
31
32


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


31
32
33
34
35
36
37
38
39







-
-
+
+








(use srfi-1 posix srfi-69 readline ;;  regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
   srfi-19  srfi-18 extras format pkts regex regex-case
     (prefix dbi dbi:)
     )

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

(declare (uses megamod))
(import megamod)

;; (declare (uses rmt))

Modified mtut.scm from [c61a56e05f] to [6dd8b4fb0e].

23
24
25
26
27
28
29
30
31
32
33




34

35


36
37
38
39
40
41
42
43


44
45
46
47
48
49
50
23
24
25
26
27
28
29




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

46
47
48
49
50
51
52
53
54







-
-
-
-
+
+
+
+

+

+
+







-
+
+







(define (toplevel-command . a) #f)

(use srfi-1 posix srfi-69 readline ;;  regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras)
   srfi-19  srfi-18 extras format pkts regex regex-case
     (prefix dbi dbi:)
     nanomsg)

(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
(declare (uses configf))
;; (declare (uses common))
;; (declare (uses megatest-version))
;; (declare (uses margs))
(declare (uses configfmod))
(declare (uses commonmod))
(declare (uses megamod))
(import commonmod)
(import configfmod)
(import megamod)

;; (declare (uses rmt))

(use ducttape-lib)

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

(require-library stml)
;; (require-library stml)
(use stml2)

;; stuff for the mapper and checker functions
;;
(define *target-mappers*  (make-hash-table)) 
(define *runname-mappers* (make-hash-table)) 
(define *area-checkers*   (make-hash-table)) 

Modified tcmt.scm from [8d018da2d1] to [92574c4144].

24
25
26
27
28
29
30
31
32
33
34




35

36

37
38
39
40
41
42
43
24
25
26
27
28
29
30




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







-
-
-
-
+
+
+
+

+

+







;;

(use srfi-1 posix srfi-69 srfi-18 regex defstruct)

(use trace)
;; (trace-call-sites #t)

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

(declare (uses megamod))
(declare (uses commonmod))
(import megamod)
(import commonmod)

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

(define origargs (cdr (argv)))
(define remargs (args:get-args