Megatest

Check-in [d9c2c16c0d]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:compiles/runs megatest (dunno about dashboard yet).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.70-defunct-try
Files: files | file ages | folders
SHA1: d9c2c16c0d0ac4c7a0c50f9eca45c64ae9f06e79
User & Date: matt on 2019-12-28 22:57:06
Other Links: branch diff | manifest | tags
Context
2019-12-29
03:26
Fixed couple more deps check-in: 699fe73b85 user: matt tags: v1.70-defunct-try
2019-12-28
22:57
compiles/runs megatest (dunno about dashboard yet). check-in: d9c2c16c0d user: matt tags: v1.70-defunct-try
22:08
wip check-in: d345134880 user: matt tags: v1.70-defunct-try
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified Makefile from [2fe35ad38f] to [071b067e9d].

︙
207
208
209
210
211
212
213

214
215
216
217
218
219
220

207
208
209
210
211
212
213
214
215
216
217
218
219
220
221








+








   mofiles/tasksmod.o \
   mofiles/testsmod.o \
   mofiles/pkts.o \
   mofiles/mtargs.o \
   mofiles/mtconfigf.o \
   mofiles/ducttape-lib.o \
   mofiles/stml2.o \
   mofiles/mutils.o \
   *-inc.scm

mofiles/dcommonmod.o : \
   mofiles/vgmod.o \
   mofiles/treemod.o \
   mofiles/ezstepsmod.o \
   mofiles/mtargs.o
︙

Modified commonmod.scm from [c1bbc9417a] to [783f6dcf03].

︙
17
18
19
20
21
22
23
24

25
26
27
28
29
30
31

17
18
19
20
21
22
23

24
25
26
27
28
29
30
31








-
+








;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

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

(declare (unit commonmod))
(declare (uses mtargs))
;; (declare (uses stml2))
(declare (uses mtargs))
(declare (uses mtconfigf))
	 
(module commonmod
	*
	
(import scheme chicken data-structures extras)
	
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18
︙

Modified megatest.scm from [e266d5a075] to [72fb075d1d].

︙
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

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
55
56
57
58
59
60
61
62
63
64
65
66








-
-






+
+
+
+
+
+
+
+
+
+
+




+
+
+
+
+
+








     readline apropos json http-client directory-utils typed-records
     http-client srfi-18 extras format)

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

(require-library mutils)

(declare (uses mtargs))
(import (prefix mtargs args:))
(declare (uses mtconfigf))
(import (prefix mtconfigf configf:))
(declare (uses ducttape-lib))
(import ducttape-lib)
(declare (uses pkts))
(import pkts)
(declare (uses ulex))
(import ulex)
(declare (uses cookie))
(import cookie)
(declare (uses stml2))
(import stml2)
(declare (uses mutils))
(import mutils)

;; invoke the imports
(declare (uses mtargs.import))
(declare (uses mtconfigf.import))
(declare (uses ducttape-lib.import))
(declare (uses pkts.import))
(declare (uses ulex.import))
(declare (uses cookie.import))
(declare (uses stml2.import))
(declare (uses mutils.import))

(declare (uses commonmod))
(import commonmod)

(declare (uses rmtmod))
(import rmtmod)
(declare (uses dbmod))
(import dbmod)
︙

Modified mutils/mutils.scm from [fc9b32e569] to [9ec33d98cf]. 

1
2
3
4
5
6
7
8
9
10
11
12














13
14
15
16
17
18
19

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
33













+
+
+
+
+
+
+
+
+
+
+
+
+
+








;; Copyright 2006-2011, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.

;; This is from the perl world, a hash of hashes is a super easy way to keep a handle on
;; lots of disparate data
;;

(module mutils
    *

  (import chicken scheme
	  ;; data-structures posix
	  srfi-1
	  ;; srfi-13
	  srfi-69
	  ;; ports
	  extras
	  regex
	  )

(define (mutils:hierhash-ref hh . keys)
  (if (null? keys)
      #f
      (let loop ((ht   hh)
		 (key  (car keys))
		 (tail (cdr keys)))
	(if (null? tail)
︙
165
166
167
168
169
170
171


179
180
181
182
183
184
185
186








+

(define (mutils:keys @hierlist . @path)
  (map (lambda (@l)
	 (if (and (list? @l)(not (null? @l))) 
	     (car @l))) 
       (if (null? @path) @hierlist
	   (apply mutils:hier-list-get @hierlist @path))))

)

Modified stml2/stml2.scm from [ee4c13898d] to [74915027cb]. 

1
2
3
4
5
6
7
8
9
10
11
12


13
14
15
16
17
18
19

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













+
+








;; Copyright 2007-2011, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.

;; stml is a list of html strings

;; (declare (unit stml))

(include "cookie.scm")

(module stml2
    *

(import chicken scheme data-structures extras srfi-13 ports posix srfi-69 files srfi-1) 

(import cookie)
︙

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