Megatest

Check-in [57d442213a]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:More cleanup
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-mbi
Files: files | file ages | folders
SHA1: 57d442213a1fd0d13ffd99e69ae09d2981f77f70
User & Date: matt on 2023-03-31 21:32:12
Other Links: branch diff | manifest | tags
Context
2023-04-01
18:08
Converted couple more files to ck5 check-in: 07ba2ed8da user: matt tags: v1.80-mbi
2023-03-31
21:32
More cleanup check-in: 57d442213a user: matt tags: v1.80-mbi
17:56
Add filter to plot-uses check-in: 198baf1267 user: mrwellan tags: v1.80-mbi
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified Makefile from [aeac845805] to [0903ad3b9c].

︙
13
14
15
16
17
18
19



20
21
22
23
24
25
26
27
28
29

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

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

32
33
34
35
36
37
38


39
40
41
42
43
44
45








+
+
+









-
+






-
-








#     GNU General Public License for more details.
# 
#     You should have received a copy of the GNU General Public License
#     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

# make install CSCOPTS='-accumulate-profile -profile-name $(PWD)/profile-ww$(shell date +%V.%u)'
# rm <files>.o ; make install CSCOPTS='-profile' ; ... ;  chicken-profile | less

all : $(PREFIX)/bin/.$(ARCHSTR) mtest dboard mtut tcmt unitdeps.pdf

SHELL=/bin/bash
PREFIX=$(PWD)
CSCOPTS=
INSTALL=install
SRCFILES = common.scm items.scm launch.scm ods.scm runconfig.scm	\
           server.scm configf.scm db.scm keys.scm margs.scm		\
           process.scm runs.scm tasks.scm tests.scm genexample.scm	\
           tdb.scm mt.scm	\
           ezsteps.scm rmt.scm api.scm		\
           subrun.scm portlogger.scm archive.scm env.scm		\
           subrun.scm archive.scm env.scm		\
           diff-report.scm cgisetup/models/pgdb.scm

# module source files
MSRCFILES = dbfile.scm debugprint.scm mtargs.scm commonmod.scm dbmod.scm \
            tcp-transportmod.scm rmtmod.scm

all : $(PREFIX)/bin/.$(ARCHSTR) mtest dboard mtut tcmt

transport-mode.scm : transport-mode.scm.template
	cp transport-mode.scm.template transport-mode.scm

dashboard-transport-mode.scm : dashboard-transport-mode.scm.template
	cp dashboard-transport-mode.scm.template dashboard-transport-mode.scm

megatest.scm : transport-mode.scm
︙
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

125
126
127
128
129
130
131

132
133
134
135
136
137
138








-








	env.o \
	items.o \
	keys.o \
	launch.o \
	margs.o \
	mt.o \
	ods.o \
	portlogger.o \
	process.o \
	rmt.o \
	runconfig.o \
	runs.o \
	server.o \
	tasks.o \
	tdb.o \
︙

Modified api.scm from [8894c9cdb4] to [feec7eca54].

︙
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

89
90
91
92
93
94
95

96
97
98
99
100
101
102








-








    get-steps-for-test
    read-test-data
    read-test-data-varpatt
    login
    tasks-get-last
    testmeta-get-record
    have-incompletes?
    ;; synchash-get
    get-changed-record-ids
    get-run-record-ids 
    get-not-completed-cnt))

(define api:write-queries
  '(
    get-keys-write ;; dummy "write" query to force server start
︙
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414

399
400
401
402
403
404
405

406
407
408
409
410
411
412








-








    ((test-get-records-for-index-file)  (apply db:test-get-records-for-index-file dbstruct params))
    ((get-testinfo-state-status)       (apply db:get-testinfo-state-status dbstruct params))
    ((test-get-top-process-pid)        (apply db:test-get-top-process-pid dbstruct params))
    ((test-get-paths-matching-keynames-target-new) (apply db:test-get-paths-matching-keynames-target-new dbstruct params))
    ((get-prereqs-not-met)             (apply db:get-prereqs-not-met dbstruct params))
    ((get-count-tests-running-for-run-id) (apply db:get-count-tests-running-for-run-id dbstruct params))
    ((get-not-completed-cnt)           (apply db:get-not-completed-cnt  dbstruct params)) 
    ;; ((synchash-get)                    (apply synchash:server-get dbstruct params))
    ((get-raw-run-stats)               (apply db:get-raw-run-stats dbstruct params))
    ((get-test-times)                  (apply db:get-test-times dbstruct params))

    ;; RUNS
    ((get-run-info)                 (apply db:get-run-info dbstruct params))
    ((get-run-status)               (apply db:get-run-status dbstruct params))
    ((get-run-state)                (apply db:get-run-state dbstruct params))
︙

Name change from mlaunch.scm to attic/mlaunch.scm.

︙

Name change from portlogger-example.scm to attic/portlogger-example.scm.

︙

Name change from portlogger.scm to attic/portlogger.scm.

︙

Name change from synchash.scm to attic/synchash.scm.

︙

Modified dcommon.scm from [f6be57a170] to [c1c17e9c39].

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

31
32
33
34
35
36
37

38
39
40
41
42
43
44








-








(use canvas-draw)
(import canvas-draw-iup)
(use regex typed-records matchable)

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

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

Modified newdashboard.scm from [eb75f56e00] to [e167b54c9d].

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

38
39
40
41
42
43
44

45
46
47
48
49
50
51








-








	debugprint
	(prefix mtargs args:))

;; (declare (uses launch))
;; (declare (uses gutils))
;; (declare (uses db))
;; (declare (uses server))
;; (declare (uses synchash))
(declare (uses dcommon))
;; (declare (uses tree))
;; 
;; (include "common_records.scm")
;; (include "db_records.scm")
;; (include "key_records.scm")
︙

Modified tree.scm from [a9244696cf] to [c8bcf1dc7e].

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

18
19
20
21
22
23
24

25
26
27

28
29
30
31
32
33
34








-



-








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

(declare (unit tree))
(declare (uses mtargs))
(declare (uses debugprint))
(declare (uses launch))
;; (declare (uses megatest-version))
(declare (uses gutils))
(declare (uses db))
(declare (uses server))
;; (declare (uses synchash))
(declare (uses dcommon))

(use format)
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
︙

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