Overview
| Comment: | Always create the alist files whether or not a lock was received. Bump version |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
5aa69feecf8897c5c47137ab8331fb06 |
| User & Date: | mrwellan on 2017-06-07 10:55:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-07
| ||
| 12:22 | Fix for version-as-string issue check-in: e3ac63c415 user: mrwellan tags: v1.64 | |
| 10:55 | Always create the alist files whether or not a lock was received. Bump version check-in: 5aa69feecf user: mrwellan tags: v1.64 | |
|
2017-06-06
| ||
| 23:16 | Put faux-locks into no-sync db. check-in: 6ec66c15e4 user: matt tags: v1.64 | |
Changes
cgisetup/cgi-bin/models became a regular file with contents [39c07627cc].
cgisetup/cgi-bin/pages became a regular file with contents [e2b5ed002d].
Modified configf.scm from [0ba889ef5e] to [a5fb5e6f08].
| ︙ | ︙ | |||
683 684 685 686 687 688 689 |
(handle-exceptions
exn
#f
(configf:alist->config
(with-input-from-file fname read))))
(define (configf:write-alist cdat fname)
| | > | | | | | | | | | | | | | | | | | | < | | < < < | | 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 |
(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* "WARNING: could not get lock on " fname))
(let* ((dat (configf:config->alist cdat))
(res
(begin
(with-output-to-file fname ;; first write out the file
(lambda ()
(pp dat)))
(if (common: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))))
(common:faux-unlock fname)
res))
;; convert hierarchial list to ini format
;;
(define (configf:config->ini data)
(map
(lambda (section)
(let ((section-name (car section))
(section-dat (cdr section)))
|
| ︙ | ︙ |
Modified megatest-version.scm from [397d84c9d5] to [5e55dea9f3].
1 2 3 4 5 | ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 1 2 3 4 5 6 7 | ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.6418) |