Megatest

Check-in [3ca4260740]
Login
Overview
Comment:Make tcp vs. http compile time configurable.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80-tcp-inmem
Files: files | file ages | folders
SHA1: 3ca42607404b83d5191ae31bd1f1a60e32e9366a
User & Date: matt on 2023-02-15 15:39:10
Other Links: branch diff | manifest | tags
Context
2023-02-15
19:21
wip. compiles. check-in: 4c52a47431 user: matt tags: v1.80-tcp-inmem
15:39
Make tcp vs. http compile time configurable. check-in: 3ca4260740 user: matt tags: v1.80-tcp-inmem
14:17
wip check-in: e0ef4cda9d user: matt tags: v1.80-tcp-inmem
Changes

Modified Makefile from [bdcd5b3364] to [fbcf5a6a57].

30
31
32
33
34
35
36





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







+
+
+
+
+







           diff-report.scm cgisetup/models/pgdb.scm

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

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

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

megatest.scm : transport-mode.scm

# dbmod.import.o is just a hack here
mofiles/dbfile.o     : mofiles/debugprint.o mofiles/commonmod.o dbmod.import.o
db.o : dbmod.import.o
mofiles/debugprint.o : mofiles/mtargs.o

# ftail.scm rmtmod.scm commonmod.scm removed

Modified megatest.scm from [0136625b06] to [020e1b8ba1].

78
79
80
81
82
83
84
85
86
87

88
89
90
91
92
93
94
78
79
80
81
82
83
84



85
86
87
88
89
90
91
92







-
-
-
+







(use sparse-vectors)

(require-library mutils)

(define *usage-log-file* #f)    ;; put path to file for logging usage in this var in the ~/.megatestrc file
(define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file

;; 'http or 'tcp
;; (rmt:transport-mode 'tcp)
(rmt:transport-mode 'http)
(include "transport-mode.scm")

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

;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file
;;
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
  (if (common:file-exists? debugcontrolf)

Added transport-mode.scm.template version [936e3f7e57].




1
2
3
+
+
+
;; 'http or 'tcp
;; (rmt:transport-mode 'tcp)
(rmt:transport-mode 'http)