669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
|
(with-output-to-file fname ;; first write out the file
(lambda ()
(pp dat)))
(if (file-exists? fname) ;; now verify it is readable
(if (configf:read-alist fname)
#t ;; data is good.
(begin
(delete-file fname)
(debug:print 0 *default-log-port* "WARNING: content " dat " for cache " fname " is not readable. Deleting generated file.")
#f))
#f)))
;; convert hierarchial list to ini format
;;
(define (configf:config->ini data)
(map
|
|
>
>
|
>
|
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
|
(with-output-to-file fname ;; first write out the file
(lambda ()
(pp dat)))
(if (file-exists? fname) ;; now verify it is readable
(if (configf:read-alist fname)
#t ;; data is good.
(begin
(handle-exceptions
exn
#f
(debug:print 0 *default-log-port* "WARNING: content " dat " for cache " fname " is not readable. Deleting generated file.")
(delete-file fname))
#f))
#f)))
;; convert hierarchial list to ini format
;;
(define (configf:config->ini data)
(map
|