22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
)
(define (portprint p . args)
(with-output-to-port p
(lambda ()
(apply print args))))
(define (mofiles-adjust->dot-o inf)
(regex-case
inf
("^.*mod$" _ (conc "mofiles/"inf".o"))
("ods" _ (conc "mofiles/"inf".o"))
("pgdb" _ (conc "cgisetup/models/"inf".o"))
(else (conc inf".o"))))
(define (hh-push ht k1 val)
(hash-table-set! ht k1 (cons val (hash-table-ref/default ht k1 '()))))
(define (compunit targfname files)
(let* ((unitdata (make-hash-table))
|
>
>
>
|
|
|
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
)
(define (portprint p . args)
(with-output-to-port p
(lambda ()
(apply print args))))
(define modules-without-mod
"(ods|transport|portlogger)")
(define (mofiles-adjust->dot-o inf)
(regex-case
inf
("^.*mod$" _ (conc "mofiles/"inf".o"))
(modules-without-mod _ (conc "mofiles/"inf".o"))
("pgdb" _ (conc "cgisetup/models/"inf".o"))
(else (conc inf".o"))))
(define (hh-push ht k1 val)
(hash-table-set! ht k1 (cons val (hash-table-ref/default ht k1 '()))))
(define (compunit targfname files)
(let* ((unitdata (make-hash-table))
|