Megatest

Diff
Login

Differences From Artifact [4de3b53470]:

To Artifact [f35a4b6429]:


21
22
23
24
25
26
27

28
29
30
31
32
33



34
35
36
37
38
39
40
21
22
23
24
25
26
27
28
29
30
31
32
33

34
35
36
37
38
39
40
41
42
43







+





-
+
+
+







(declare (unit commonmod))
;; (declare (uses processmod))

(module commonmod
	*
	
(import scheme chicken data-structures extras)
	
(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18
	srfi-1 files format srfi-13 matchable 
	srfi-69 ports
	regex-case regex hostinfo srfi-4
	pkts (prefix dbi dbi:)
	stack)
	stack
	md5
	message-digest)

;; (import processmod)
(import stml2)

(include "common_records.scm")
(include "megatest-fossil-hash.scm")
(include "megatest-version.scm")
1479
1480
1481
1482
1483
1484
1485


1486





1482
1483
1484
1485
1486
1487
1488
1489
1490

1491
1492
1493
1494
1495







+
+
-
+
+
+
+
+


;; if a value is printable (i.e. string or number) return the value
;; else return an empty string
(define-inline (printable val)
  (if (or (number? val)(string? val)) val ""))

(define (common:get-area-path-signature)
  (message-digest-string (md5-primitive) *toppath*))
)

(define (common:get-signature str)
  (message-digest-string (md5-primitive) str))

)