Megatest

Differences From Artifact [77100eae92]:

• File configf.scm — part of check-in [10a8cb99bf] at 2018-06-19 18:52:40 on branch v1.65 — Updated configf include handling to not fail when there are include files that don't exist (user: jmoon18, size: 42069) [annotate] [blame] [check-ins using] [more...]

To Artifact [c596e07f23]:

• File configf-inc.scm — part of check-in [fde3cd0ad1] at 2019-11-03 04:00:00 on branch v1.65-try3 — try3 (user: matt, size: 42061) [annotate] [blame] [check-ins using]
• File configf.scm — part of check-in [ca98414851] at 2019-02-14 14:18:49 on branch v1.65-telemetry — defend against issue in test execution >>Error: (hash-table->alist) bad argument type - not a structure of the required type << (user: bjbarcla, size: 42061) [annotate] [blame] [check-ins using]

772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789

       (hash-table-set! ht (car section)(cdr section)))
     adat)
    ht))

;; if 
(define (configf:read-alist fname)
  (handle-exceptions
      exn
      #f
    (configf:alist->config
     (with-input-from-file fname read))))

(define (configf:write-alist cdat fname)
  (if (not (common:faux-lock fname))
      (debug:print 0 *default-log-port* "INFO: Could not get lock on " fname))
  (let* ((dat  (configf:config->alist cdat))
         (res
          (begin

|
|
|
|

772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789

       (hash-table-set! ht (car section)(cdr section)))
     adat)
    ht))

;; if 
(define (configf:read-alist fname)
  (handle-exceptions
   exn
   #f
   (configf:alist->config
    (with-input-from-file fname read))))

(define (configf:write-alist cdat fname)
  (if (not (common:faux-lock fname))
      (debug:print 0 *default-log-port* "INFO: Could not get lock on " fname))
  (let* ((dat  (configf:config->alist cdat))
         (res
          (begin