36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
commonmod
debugprint
;; dbmemmod
dbfile
dbmod
tcp-transportmod)
;; http - use the old http + in /tmp db
;; tcp - use tcp transport with inmem db
;; nfs - use direct to disk access (read-only)
;;
(define rmt:transport-mode (make-parameter 'tcp))
|
<
<
<
<
<
|
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
commonmod
debugprint
;; dbmemmod
dbfile
dbmod
tcp-transportmod)
;;
;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
;;
;; generate entries for ~/.megatestrc with the following
;;
;; grep define ../rmt.scm | grep rmt: |perl -pi -e 's/\(define\s+\((\S+)\W.*$/\1/'|sort -u
|