119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
(exit 1)))
(if (and path
(directory? path)
(file-read-access? path))
(let* ((dbpath (conc path "/" *exe-name* ".db"))
(writeable (file-write-access? dbpath))
(dbexists (file-exists? dbpath)))
(handle-exceptions
exn
(begin
(debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
((condition-property-accessor 'exn 'message) exn))
(exit 1))
;;(debug:print 0 *default-log-port* "calling proc " proc "db path " dbpath )
(call-with-database
|
|
|
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
(exit 1)))
(if (and path
(directory? path)
(file-read-access? path))
(let* ((dbpath (conc path "/" *exe-name* ".db"))
(writeable (file-write-access? dbpath))
(dbexists (file-exists? dbpath)))
(common:debug-handle-exceptions #t
exn
(begin
(debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
((condition-property-accessor 'exn 'message) exn))
(exit 1))
;;(debug:print 0 *default-log-port* "calling proc " proc "db path " dbpath )
(call-with-database
|
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
|
(package-config (conc packages-metadir "/" package-type ".config")))
;; this section here does a timestamp based rebuild of the
;; <packages-metadir>/<package-type>.config file using
;; <upstream-file> as an input
(if (file-exists? upstream-file)
(if (or (not (file-exists? package-config)) ;; if not created call the updater, otherwise call only if upstream newer
(> (file-modification-time upstream-file)(file-modification-time package-config)))
(handle-exceptions
exn
(debug:print-error 0 *default-log-port* "failed to run script " conversion-script " with params " upstream-file " " package-config)
(let ((pid (process-run conversion-script (list upstream-file package-config))))
(process-wait pid)))
(debug:print 0 *default-log-port* "Skipping update of " package-config " from " upstream-file))
(debug:print 0 *default-log-port* "Skipping update of " package-config " as " upstream-file " not found"))
;; (ini:property-separator-patt " * *")
|
|
|
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
|
(package-config (conc packages-metadir "/" package-type ".config")))
;; this section here does a timestamp based rebuild of the
;; <packages-metadir>/<package-type>.config file using
;; <upstream-file> as an input
(if (file-exists? upstream-file)
(if (or (not (file-exists? package-config)) ;; if not created call the updater, otherwise call only if upstream newer
(> (file-modification-time upstream-file)(file-modification-time package-config)))
(common:debug-handle-exceptions #t
exn
(debug:print-error 0 *default-log-port* "failed to run script " conversion-script " with params " upstream-file " " package-config)
(let ((pid (process-run conversion-script (list upstream-file package-config))))
(process-wait pid)))
(debug:print 0 *default-log-port* "Skipping update of " package-config " from " upstream-file))
(debug:print 0 *default-log-port* "Skipping update of " package-config " as " upstream-file " not found"))
;; (ini:property-separator-patt " * *")
|