Overview
| Comment: | Basic command line working |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
30d2c2450abd0f477c8b7f0e056cfcee |
| User & Date: | matt on 2013-07-14 20:35:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-14
| ||
| 21:54 | Added a test for the txtdb editor check-in: 40cbab9b8b user: matt tags: dev | |
| 20:35 | Basic command line working check-in: 30d2c2450a user: matt tags: dev | |
| 19:30 | Mostly working check-in: d0d74baabc user: matt tags: dev | |
Changes
Modified txtdb/txtdb.scm from [165f563641] to [f9c12e98ea].
| ︙ | |||
10 11 12 13 14 15 16 17 18 19 20 21 22 23 | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | + |
(use ssax)
(use sxml-serializer)
(use sxml-modifications)
(use regex)
(use srfi-69)
(use regex-case)
(use posix)
;; Read a non-compressed gnumeric file
(define (txtdb:read-gnumeric-xml fname)
(with-input-from-file fname
(lambda ()
(ssax:xml->sxml (current-input-port) '()))))
|
| ︙ | |||
298 299 300 301 302 303 304 305 306 307 308 309 310 311 | 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 | + + + + + + + + + + + + + + + + + + + + + + + + + |
(loop (car tal)
(cdr tal)
new-rownames
new-colnames
(if (> curr-rownum rownum) curr-rownum rownum)
(if (> curr-colnum colnum) curr-colnum colnum)
))))))
(define (edit-txtdb path)
(let* ((dbname (pathname-strip-directory path))
(tmpf (conc (create-temporary-file dbname) ".gnumeric")))
(txtdb-export path tmpf)
(let ((pid (process-run "gnumeric" (list tmpf))))
(process-wait pid)
(import-gnumeric-file tmpf path))))
(define (process-action action . param)
(case (string->symbol action)
((edit)
(edit-txtdb (car param)))))
(define (main)
(let* ((args (argv))
(prog (car args))
(rema (cdr args)))
(cond
((null? rema)(print help))
((eq? (length rema) 2)
(apply process-action (car rema)(cdr rema)))
(else (print help)))))
(main)
#|
(define x (txtdb:read-gnumeric-xml "testdata-stripped.xml"))
;; Write out sxml
|
| ︙ |