Megatest

Diff
Login

Differences From Artifact [d7ceb127bd]:

To Artifact [c68ef5527f]:


65
66
67
68
69
70
71







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

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















>
>
>
>
>
>
>

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)
     ",")))