13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(use sxml-modifications)
(use regex)
(use srfi-69)
(use regex-case)
(use posix)
(use json)
(use csv)
(include "../megatest-fossil-hash.scm")
;; Read a non-compressed gnumeric file
(define (refdb:read-gnumeric-xml fname)
(with-input-from-file fname
(lambda ()
|
>
|
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(use sxml-modifications)
(use regex)
(use srfi-69)
(use regex-case)
(use posix)
(use json)
(use csv)
(use srfi-18)
(include "../megatest-fossil-hash.scm")
;; Read a non-compressed gnumeric file
(define (refdb:read-gnumeric-xml fname)
(with-input-from-file fname
(lambda ()
|
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
|
(print)
(print "Don't forget to remove the old files from your revision control system and add the new.")
(exit)))
(let* ((dbname (pathname-strip-directory path))
(tmpf (conc (create-temporary-file dbname) ".gnumeric")))
(if (file-exists? (conc path "/sheet-names.cfg"))
(refdb-export path tmpf))
(let ((pid (process-run "gnumeric" (list tmpf))))
(process-wait pid)
(import-gnumeric-file tmpf path))))
|
|
>
|
>
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
|
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
|
(print)
(print "Don't forget to remove the old files from your revision control system and add the new.")
(exit)))
(let* ((dbname (pathname-strip-directory path))
(tmpf (conc (create-temporary-file dbname) ".gnumeric")))
(if (file-exists? (conc path "/sheet-names.cfg"))
(refdb-export path tmpf))
(let* ((pid (process-run "gnumeric" (list tmpf))))
(let loop ((last-mod-time (current-seconds)))
(let-values (((pid-code exit-status exit-signal)(process-wait pid #t)))
(if (eq? pid-code 0) ;; still going
(if (file-exists? tmpf)
(let ((mod-time (file-modification-time tmpf)))
(if (> mod-time last-mod-time)
(begin
(print "saved data to " path)
(import-gnumeric-file tmpf path)))
(thread-sleep! 0.5)
(loop mod-time))
(begin
(thread-sleep! 0.5)
(loop last-mod-time))))))
;; all done
(print "all done, writing new data to " path)
(import-gnumeric-file tmpf path)
(print "data written, exiting refdb edit."))))
;;======================================================================
;; This routine dispaches or executes most of the commands for refdb
;;======================================================================
;;
(define (process-action action-str . param)
(let ((num-params (length param))
|