Overview
Context
Changes
Modified Makefile
from [3b8892abb7]
to [ce31b5458b].
| ︙ | | |
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
-
+
-
+
|
# removed from MSRCFILES: ftail.scm
# module source files
MSRCFILES = dbmod.scm rmtmod.scm commonmod.scm apimod.scm \
archivemod.scm clientmod.scm envmod.scm ezstepsmod.scm itemsmod.scm \
keysmod.scm launchmod.scm odsmod.scm processmod.scm runconfigmod.scm \
runsmod.scm servermod.scm subrunmod.scm tasksmod.scm testsmod.scm \
megamod.scm
pkts.scm mtargs.scm mtconfigf.scm ducttape-lib.scm megamod.scm
GMSRCFILES = dcommonmod.scm vgmod.scm treemod.scm
GMSRCFILES = dcommonmod.scm vgmod.scm treemod.scm
# Eggs to install (straightforward ones)
EGGS=matchable readline apropos base64 regex-literals format \
regex-case test coops trace csv dot-locking posix-utils posix-extras \
directory-utils hostinfo tcp-server rpc csv-xml fmt json md5 awful \
http-client spiffy uri-common intarweb spiffy-request-vars \
|
| ︙ | | |
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
+
+
+
-
+
|
GMOFILES = $(addprefix mofiles/,$(GMSRCFILES:%.scm=%.o))
# compiled import files
GMOIMPFILES = $(GMSRCFILES:%.scm=%.import.o)
%.import.o : %.import.scm
csc -unit $*.import -c $*.import.scm -o $*.import.o
# mofiles/ducttape-lib.o : ducttape-lib.scm ducttape/*scm
# csc -I ducttape -J -c ducttape-lib.scm -o mofiles/ducttape-lib.o
mofiles/%.o : %.scm
mofiles/%.o %.import.scm : %.scm
mkdir -p mofiles
csc $(CSCOPTS) -J -c $< -o mofiles/$*.o
# a.import.o : a.import.scm a.o
# csc -unit a.import -c a.import.scm -o $*.o
ADTLSCR=mt_laststep mt_runstep mt_ezstep
|
| ︙ | | |
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
+
-
+
|
ARCHSTR=$(shell if [[ -e /usr/bin/sw_vers ]]; then /usr/bin/sw_vers -productVersion; else lsb_release -sr; fi)
# ARCHSTR=$(shell bash -c "echo \$$MACHTYPE")
PNGFILES = $(shell cd docs/manual;ls *png)
#all : $(PREFIX)/bin/.$(ARCHSTR) mtest dboard mtut ndboard
IMPORTO = apimod.import.o dbmod.import.o itemsmod.import.o \
odsmod.import.o runsmod.import.o testsmod.import.o \
archivemod.import.o keysmod.import.o processmod.import.o \
servermod.import.o clientmod.import.o envmod.import.o \
launchmod.import.o rmtmod.import.o subrunmod.import.o \
commonmod.import.o ezstepsmod.import.o megamod.import.o \
runconfigmod.import.o tasksmod.import.o
# IMPORTO = apimod.import.o dbmod.import.o itemsmod.import.o \
# odsmod.import.o runsmod.import.o testsmod.import.o \
# archivemod.import.o keysmod.import.o processmod.import.o \
# servermod.import.o clientmod.import.o envmod.import.o \
# launchmod.import.o rmtmod.import.o subrunmod.import.o \
# commonmod.import.o ezstepsmod.import.o megamod.import.o \
# runconfigmod.import.o tasksmod.import.o pkts.import.o
all : $(PREFIX)/bin/.$(ARCHSTR) mtest dboard mtut tcmt
# why were the files mofiles/ftail.o mofiles/rmtmod.o mofiles/commonmod.o listed on this target when MOFILES are there?
# Removed non module .o files (i.e. $(OFILES)
mtest: readline-fix.scm megatest.o $(MOFILES) $(MOIMPFILES)
mtest: readline-fix.scm megatest.o $(MOFILES) $(MOIMPFILES) mofiles/ducttape-lib.o
csc $(CSCOPTS) $(MOFILES) $(MOIMPFILES) megatest.o -o mtest
showmtesthash:
@echo $(MTESTHASH)
# removing $(GOFILES)
dboard : dashboard.o $(MOFILES) $(MOIMPFILES) $(GMOFILES) $(GMOIMPFILES)
dboard : dashboard.o $(MOFILES) $(MOIMPFILES) $(GMOFILES) $(GMOIMPFILES)
csc $(CSCOPTS) dashboard.o $(MOFILES) $(MOIMPFILES) $(GMOFILES) $(GMOIMPFILES) -o dboard
ndboard : newdashboard.scm $(GOFILES)
csc $(CSCOPTS) $(GOFILES) newdashboard.scm -o ndboard
mtut: $(MOFILES) megatest-fossil-hash.scm mtut.scm
csc $(CSCOPTS) $(MOFILES) mtut.scm -o mtut
|
| ︙ | | |
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#multi-dboard : multi-dboard.scm $(OFILES) $(GOFILES)
# csc $(CSCOPTS) $(OFILES) $(GOFILES) multi-dboard.scm -o multi-dboard
#
# $(PREFIX)/bin/revtagfsl : utils/revtagfsl.scm
# csc utils/revtagfsl.scm -o $(PREFIX)/bin/revtagfsl
#======================================================================
# Special dependencies for the includes
#======================================================================
tests.o db.o launch.o runs.o dashboard-tests.o dashboard-context-menu.o dashboard-guimonitor.o dashboard-main.o monitor.o dashboard.o \
archive.o megatest.o : db_records.scm migrate-fix.scm
tests.o runs.o dashboard.o dashboard-tests.o dashboard-context-menu.o dashboard-main.o : run_records.scm
db.o ezsteps.o keys.o launch.o megatest.o monitor.o runs-for-ref.o runs.o tests.o : key_records.scm
tests.o tasks.o dashboard-tasks.o : task_records.scm
runs.o : test_records.scm
megatest.o : megatest-fossil-hash.scm
rmt.scm client.scm common.scm configf.scm dashboard-guimonitor.scm dashboard-tests.scm dashboard.scm db.scm dcommon.scm ezsteps.scm fs-transport.scm http-transport.scm index-tree.scm items.scm keys.scm launch.scm megatest.scm monitor.scm mt.scm newdashboard.scm runconfig.scm runs.scm server.scm tdb.scm tests.scm tree.scm : common_records.scm
common_records.scm : altdb.scm
vg.o dashboard.o : vg_records.scm mofiles/dcommonmod.o
dcommon.o : run_records.scm migrate-fix.scm
# special include based modules
mofiles/pkts.o : pkts/pkts.scm
mofiles/mtargs.o : mtargs/mtargs.scm
mofiles/mtconfigf.o : mtconfigf/mtconfigf.scm
# mofile/ducttape-lib.o : ducttape/ducttape-lib.scm
# Temporary while transitioning to new routine
# runs.o : run-tests-queue-classic.scm run-tests-queue-new.scm
# for the modularized stuff
mofiles/commonmod.o : megatest-fossil-hash.scm
mofiles/dbmod.o : mofiles/commonmod.o mofiles/keysmod.o mofiles/tasksmod.o mofiles/odsmod.o
|
| ︙ | | |
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
|
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
|
+
+
+
+
-
+
+
|
mofiles/processmod.o \
mofiles/runconfigmod.o \
mofiles/runsmod.o \
mofiles/servermod.o \
mofiles/subrunmod.o \
mofiles/tasksmod.o \
mofiles/testsmod.o \
mofiles/pkts.o \
mofiles/mtargs.o \
mofiles/mtconfigf.o \
mofiles/ducttape-lib.o \
*-inc.scm
mofiles/dcommonmod.o : \
mofiles/vgmod.o \
mofiles/treemod.o \
mofiles/ezstepsmod.o
mofiles/ezstepsmod.o \
mofiles/mtargs.o
# $(MOFILES) : mofiles/commonmod.o
megatest-fossil-hash.scm : $(SRCFILES) megatest.scm *_records.scm
echo "(define megatest-fossil-hash \"$(MTESTHASH)\")" > megatest-fossil-hash.new
if ! diff -q megatest-fossil-hash.new megatest-fossil-hash.scm ; then echo copying .new to .scm;cp -f megatest-fossil-hash.new megatest-fossil-hash.scm;fi
|
| ︙ | | |
Modified dashboard.scm
from [e29ff98288]
to [53e0f92bae].
| ︙ | | |
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
-
+
-
+
-
+
|
(use format)
(require-library iup)
(import (prefix iup iup:))
(use canvas-draw)
(import canvas-draw-iup)
(use ducttape-lib)
;; (use ducttape-lib)
(use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records
sparse-vectors srfi-18
(prefix mtconfigf configf:)
#;(prefix mtconfigf configf:)
(prefix margs args:))
|
| ︙ | | |
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
+
+
+
+
+
+
+
+
+
+
|
(declare (uses dbmod))
(import dbmod)
(declare (uses testsmod))
(import testsmod)
(declare (uses dcommonmod))
(import dcommonmod)
(declare (uses mtargs))
(import (prefix mtargs args:))
(declare (uses ducttape-lib))
(import ducttape-lib)
(declare (uses mtconfigf))
(import (prefix mtconfigf configf:))
(include "common_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "task_records.scm")
;; (include "megatest-fossil-hash.scm") ;; comes from megamod
(include "vg_records.scm")
;; invoke the imports
(declare (uses commonmod.import))
(declare (uses testsmod.import))
(declare (uses rmtmod.import))
(declare (uses runsmod.import))
(declare (uses megamod.import))
(declare (uses dcommonmod.import))
(declare (uses mtargs.import))
(declare (uses ducttape-lib.import))
(declare (uses mtconfigf.import))
(configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)
(configf:add-eval-string "(import megamod)(import commonmod)")
(define help (conc
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
|
| ︙ | | |
Modified dcommonmod.scm
from [80c862d803]
to [fdab2018b7].
| ︙ | | |
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
+
|
;;======================================================================
(declare (unit dcommonmod))
(declare (uses commonmod))
(declare (uses testsmod))
(declare (uses megamod))
(declare (uses mtargs))
(module dcommonmod
*
(import scheme chicken data-structures extras)
(import (prefix sqlite3 sqlite3:)
posix typed-records srfi-18 srfi-69 format ports srfi-1
|
| ︙ | | |
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
+
|
(import commonmod)
(import testsmod)
(import megamod)
(import canvas-draw)
(import canvas-draw-iup)
(use (prefix iup iup:))
(import (prefix mtargs args:))
(define *tim* (iup:timer))
;; (use (prefix ulex ulex:))
(include "common_records.scm")
(include "db_records.scm")
|
| ︙ | | |
Added ducttape-lib.scm version [ee2ef474af].
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
;;======================================================================
;; Copyright 2019, 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/>.
;;======================================================================
(declare (unit ducttape-lib))
(include "ducttape/ducttape-lib.scm")
|
| | | | | | | | | | | | | | | | | | | | | |
Added ducttape/Makefile version [9efb623beb].
|
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
34
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
help:
@echo ""
@echo "make targets:"
@echo "============="
@echo "install - build and install general_lib egg as icfadm"
@echo "test - run unit tests on ducttape-lib.scm (tests code, not egg)"
@echo "eggs-info - show chicken-install commands to get eggs upon which ducttape-lib depends"
@echo "test_example - compile an example scm against installed general_lib egg"
@echo "clean - remove binaries and other build artifacts"
@echo ""
clean:
rm -f *.so *.import.scm test_ducttape test_example foo *.c *.o
install:
chicken-install
test:
echo '(handle-exceptions exn (begin (print-call-chain) (exit 1)) (load "ducttape-lib.scm") (inote "hello")) (exit 0)' | csi
chicken-install -no-install
csc test_ducttape.scm
./test_ducttape
rm -f foo
test_example:
@csc test_example.scm
@./test_example
@rm test_example
eggs-info:
@echo chicken-install ansi-escape-sequences
@echo chicken-install slice
@echo chicken-install rfc3339
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
Added ducttape/README version [bc9be285fc].
|
1
2
3
4
5
6
7
8
|
+
+
+
+
+
+
+
+
|
This directory holds the "ducttape" chicken scheme egg used by megatest.
Run "make test" to ensure this egg works on your system.
Run "make install" as your admin user with chicken on your $PATH to install this egg.
|
| | | | | | |
Added ducttape/ducttape-lib.import.scm version [31a238cf76].
|
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
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
67
68
69
70
71
72
73
74
75
76
77
78
79
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
;;;; ducttape-lib.import.scm - GENERATED BY CHICKEN 4.10.0 -*- Scheme -*-
(eval '(import
scheme
chicken
extras
ports
data-structures
posix
regex
ansi-escape-sequences
test
srfi-1
irregex
slice
srfi-13
rfc3339
directory-utils
uuid-lib
filepath
srfi-19
srfi-19
test
regex))
(##sys#register-compiled-module
'ducttape-lib
(list)
'((runs-ok . ducttape-lib#runs-ok)
(ducttape-debug-level . ducttape-lib#ducttape-debug-level)
(ducttape-debug-regex-filter . ducttape-lib#ducttape-debug-regex-filter)
(ducttape-silent-mode . ducttape-lib#ducttape-silent-mode)
(ducttape-quiet-mode . ducttape-lib#ducttape-quiet-mode)
(ducttape-log-file . ducttape-lib#ducttape-log-file)
(ducttape-color-mode . ducttape-lib#ducttape-color-mode)
(iputs-preamble . ducttape-lib#iputs-preamble)
(script-name . ducttape-lib#script-name)
(idbg . ducttape-lib#idbg)
(ierr . ducttape-lib#ierr)
(iwarn . ducttape-lib#iwarn)
(inote . ducttape-lib#inote)
(iputs . ducttape-lib#iputs)
(re-match? . ducttape-lib#re-match?)
(keyword-skim . ducttape-lib#keyword-skim)
(skim-cmdline-opts-noarg-by-regex
.
ducttape-lib#skim-cmdline-opts-noarg-by-regex)
(skim-cmdline-opts-withargs-by-regex
.
ducttape-lib#skim-cmdline-opts-withargs-by-regex)
(concat-lists . ducttape-lib#concat-lists)
(ducttape-process-command-line
.
ducttape-lib#ducttape-process-command-line)
(ducttape-append-logfile . ducttape-lib#ducttape-append-logfile)
(ducttape-activate-logfile . ducttape-lib#ducttape-activate-logfile)
(isys . ducttape-lib#isys)
(do-or-die . ducttape-lib#do-or-die)
(counter-maker . ducttape-lib#counter-maker)
(dir-is-writable? . ducttape-lib#dir-is-writable?)
(mktemp . ducttape-lib#mktemp)
(get-tmpdir . ducttape-lib#get-tmpdir)
(sendmail . ducttape-lib#sendmail)
(find-exe . ducttape-lib#find-exe)
(zeropad . ducttape-lib#zeropad)
(string-leftpad . ducttape-lib#string-leftpad)
(string-rightpad . ducttape-lib#string-rightpad)
(seconds->isodate . ducttape-lib#seconds->isodate)
(seconds->wwdate . ducttape-lib#seconds->wwdate)
(seconds->wwdate-values . ducttape-lib#seconds->wwdate-values)
(isodate->seconds . ducttape-lib#isodate->seconds)
(isodate->wwdate . ducttape-lib#isodate->wwdate)
(wwdate->seconds . ducttape-lib#wwdate->seconds)
(wwdate->isodate . ducttape-lib#wwdate->isodate)
(current-wwdate . ducttape-lib#current-wwdate)
(current-isodate . ducttape-lib#current-isodate))
(list)
(list))
;; END OF FILE
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
Added ducttape/ducttape-lib.meta version [a22283c9d8].
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
+
+
+
+
+
+
+
+
+
+
+
+
+
|
;;; ducttape-lib.meta -*- Hen -*-
((egg "ducttape-lib.egg")
(synopsis "Miscellaneous tool and standard print routines.")
(category env)
(author "Brandon Barclay")
(doc-from-wiki)
(license "GPL-2")
;; srfi-69, posix, srfi-18
(depends regex)
(test-depends test)
; suspicious - (files "ducttape-lib")
)
|
| | | | | | | | | | | |
Added ducttape/ducttape-lib.scm version [59b0a2f94a].