Megatest

Differences From Artifact [46a3b150ea]:

• File key_records.scm — part of check-in [98de2c2f8d] at 2011-10-23 20:42:46 on branch trunk — Lots of little bugs fixed related to monitor. Note that now multiple runs must be accomodated from the same launcher (user: matt, size: 981) [annotate] [blame] [check-ins using]

To Artifact [9216cfc587]:

• File key_records.scm — part of check-in [6c65b71621] at 2011-11-25 23:06:02 on branch reorg-runs-code — Rework of runs proceeding... it now compiles (user: matt, size: 1017) [annotate] [blame] [check-ins using] [more...]

17
18
19
20
21
22
23

24

25

(define-inline (keys->key/field keys . additional)
  (string-join (map (lambda (k)(conc (key:get-fieldname k) " " 
				     (key:get-fieldtype k)))
		    (append keys additional)) ","))

(define-inline (item-list->path itemdat)

  (string-intersperse  (map cadr itemdat) "/"))

>
|
>

17
18
19
20
21
22
23
24
25
26
27

(define-inline (keys->key/field keys . additional)
  (string-join (map (lambda (k)(conc (key:get-fieldname k) " " 
				     (key:get-fieldtype k)))
		    (append keys additional)) ","))

(define-inline (item-list->path itemdat)
  (if (list? itemdat)
      (string-intersperse  (map cadr itemdat) "/")
      ""))