Megatest

Check-in [b7a9734bdf]
Login
Overview
Comment:switch to using mtconfigf
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-try3
Files: files | file ages | folders
SHA1: b7a9734bdf60928400cdc3785c6c0e47ed4ca7fd
User & Date: matt on 2019-11-05 04:54:28
Other Links: branch diff | manifest | tags
Context
2019-11-09
21:34
added test case for configf + modules check-in: 76caa12684 user: matt tags: v1.65-try3
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
Changes

Modified configf-inc.scm from [ad7dc7b920] to [a060e51245].

1
2

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20





21
22
23
24
25
26
27
1

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

-
+


















+
+
+
+
+







;;======================================================================
;; Copyright 2006-2012, Matthew Welland.
;; Copyright 2006-2018, Matthew Welland.
;; 
;; This file is part of Megatest.
;; 
;;     Megatest is free software: you can redistribute it and/or modify
;;     it under the terms of the GNU General Public License as published by
;;     the Free Software Foundation, either version 3 of the License, or
;;     (at your option) any later version.
;; 
;;     Megatest is distributed in the hope that it will be useful,
;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;     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/>.

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

(define *eval-string* "")
(define (add-eval-string str)
  (if (not (string-contains *eval-string* str))
      (set! *eval-string* (conc *eval-string* " " str))))

;;======================================================================
;; Config file handling
;;======================================================================

;; return list (path fullpath configname)
(define (find-config configname #!key (toppath #f))
  (if toppath

Modified megamod.scm from [e990d130f0] to [a541db172d].

24
25
26
27
28
29
30
31

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

31
32
33
34
35
36
37
38







-
+







;; ;;(declare (uses apimod))
;; (declare (uses ftail))
;; ;; (declare (uses rmtmod))
;; (declare (uses commonmod))
;; (declare (uses apimod))
;; (declare (uses archivemod))
;; (declare (uses clientmod))
(declare (uses configfmod))
;; (declare (uses configfmod))
;; (declare (uses dbmod))
;; (declare (uses dcommonmod))
;; (declare (uses envmod))
;; (declare (uses ezstepsmod))
;; (declare (uses itemsmod))
;; (declare (uses keysmod))
;; (declare (uses launchmod))
97
98
99
100
101
102
103


104
105
106
107
108
109
110
111

112
113
114
115
116
117
118
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

113
114
115
116
117
118
119
120







+
+







-
+







 tcp
 typed-records
 udp
 uri-common
 z3
 )

(use (prefix mtconfigf configf:))

(import canvas-draw-iup spiffy)


;; (import apimod)
;; (import archivemod)
;; (import clientmod)
;; (import commonmod)
(import configfmod)
;; (import configfmod)
;; (import dbmod)
;; (import dcommonmod)
;; (import envmod)
;; (import ezstepsmod)
;; (import ftail)
;; (import itemsmod)
;; (import keysmod)

Modified megatest.scm from [290b44f5ee] to [6a43e527fb].

20
21
22
23
24
25
26
27


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

27
28
29
30
31
32
33
34
35







-
+
+







;; (include "megatest-version.scm")

;; fake out readline usage of toplevel-command
(define (toplevel-command . a) #f)

(use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)
     readline apropos json http-client directory-utils typed-records
     http-client srfi-18 extras format)
     http-client srfi-18 extras format
     (prefix mtconfigf configf:))

;; Added for csv stuff - will be removed
;;
(use sparse-vectors)

(require-library mutils)

49
50
51
52
53
54
55
56
57


58
59
60
61
62
63
64
50
51
52
53
54
55
56


57
58
59
60
61
62
63
64
65







-
-
+
+








(declare (uses commonmod))
(import commonmod)
(declare (uses rmtmod))
(import rmtmod)
(declare (uses dbmod))
(import dbmod)
(declare (uses configfmod))
(import configfmod)
;; (declare (uses configfmod))
;; (import configfmod)
(declare (uses megamod))
(import megamod)

;; (declare (uses tdb))
;; (declare (uses mt))
;; (declare (uses api))
;; (declare (uses tasks)) ;; only used for debugging.