Overview
Context
Changes
Modified docs/code/module-hierarchy.dot
from [c0313d1826]
to [553a71b254].
| ︙ | | |
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
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
80
81
82
83
84
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+
-
-
+
-
-
+
-
|
subgraph cluster_megatest {
label="megatest";
rmtmod [label="rmt mod"];
// httpmod [label="http-transportmod"];
// commonmod
// archivemod.scm
mtargs -> commonmod;
pkts -> commonmod;
mtconfigf -> commonmod;
processmod -> commonmod;
stml2 -> commonmod;
// apimod
commonmod -> apimod;
dbmod -> apimod;
servermod -> apimod;
// rmtmod
dbmod -> rmtmod;
commonmod -> rmtmod;
apimod -> rmtmod;
ulex -> rmtmod;
itemsmod -> rmtmod;
// dbmod
commonmod -> dbmod;
keysmod -> dbmod;
tasksmod -> dbmod;
odsmod -> dbmod;
mtargs -> dbmod;
mtconfigf -> dbmod;
// tasksmod
commonmod -> tasksmod;
pgdbmod -> tasksmod;
mtconfigf -> tasksmod;
// odsmod
commonmod -> odsmod;
// testsmod
commonmod -> testsmod;
mtargs -> testsmod;
servermod -> testsmod;
mtconfigf -> testsmod;
itemsmod -> testsmod;
dbmod -> testsmod;
// mtmod
mtconfigf -> mtmod;
commonmod -> mtmod;
rmtmod -> mtmod;
servermod -> mtmod;
taskmod -> mtmod;
mtargs -> mtmod;
subrunmod -> mtmod;
// launchmod -> mtmod;
// runsmod
mtmod -> runsmod;
commonmod -> runsmod;
testsmod -> runsmod;
rmtmod -> runsmod;
subrunmod -> runsmod;
// pgdbmod
commonmod -> pgdbmod;
mtconfigf -> pgdbmod;
//servermod
commonmod -> servermod;
dbmod -> servermod;
mtconfigf -> servermod;
mtargs -> servermod;
tasksmod -> servermod;
// subrunsmod
mtconfigf -> subrunmod;
commonmod -> subrunmod;
// launchmod
// commonmod -> launchmod;
// rmtmod -> launchmod;
// testsmod -> launchmod;
// mtconfigf -> launchmod;
// mtargs -> launchmod;
subrunmod -> launchmod;
// dbmod -> launchmod;
// subrun
|
Added utils/deps.scm version [62d9987751].
|
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
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#!/usr/bin/env csi
(use posix regex-case regex)
(define (get-files #!optional (patt #f))
(let ((files (glob (or patt "*.scm"))))
files))
(define (get-deps fname #!optional (data #f))
(let ((hdat (or data (make-hash-table)))
(modname (string-substitute ".scm" "" fname)))
;; (print "Processing " fname)
(hash-table-set! hdat fname '())
(with-input-from-file fname
(lambda ()
(let loop ((l (read-line)))
(if (eof-object? l)
data
(begin
(regex-case
l
("^\\s*\\(import\\s+([^\\s]+)\\).*" (x md )
(print "\"" md "\" -> \"" modname "\";")))
(loop (read-line)))))))))
(define (do-all-mod-files)
(let ((modfiles (get-files "*mod.scm")))
(for-each
(lambda (mfile)
(print "// " mfile)
(get-deps mfile))
modfiles)))
(do-all-mod-files)
(exit)
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |