Megatest

Differences From Artifact [d7ceb127bd]:

• File keys.scm — part of check-in [537ddaa4f1] at 2016-06-22 10:43:01 on branch v1.61 — Converted to using debug:print-error and added double printing of errors when output is sent to log file (user: mrwellan, size: 2583) [annotate] [blame] [check-ins using] [more...]

To Artifact [c68ef5527f]:

• File keys.scm — part of check-in [50414b8e0e] at 2017-04-29 07:40:53 on branch v1.64 — Added automatic target adjustment on running -cleanup-db. Calls to db:multi-db-sync will do the passed in operations in the order provided. Force an exit for some operations if not on homehost by looking at switches/parameters. (user: matt, size: 2788) [annotate] [blame] [check-ins using] [more...]

65
66
67
68
69
70
71







72

65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

+
+
+
+
+
+
+

;;======================================================================
;; config file related routines
;;======================================================================

(define (keys:config-get-fields confdat)
  (let ((fields (hash-table-ref/default confdat "fields" '())))
    (map car fields)))

(define (keys:make-key/field-string confdat)
  (let ((fields (configf:get-section confdat "fields")))
    (string-join
     (map (lambda (field)(conc (car field) " " (cadr field)))
	  fields)
     ",")))