Overview
| Comment: | Added getrow and getcol names to refdb |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
1af0ca8ba5948fbc0cc317c1bcfde7e7 |
| User & Date: | matt on 2013-07-19 00:14:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-19
| ||
| 00:23 | Fixed crash on dashboard start if monitor.db is not already existing. check-in: 2e2bb64d67 user: matt tags: dev | |
| 00:14 | Added getrow and getcol names to refdb check-in: 1af0ca8ba5 user: matt tags: dev | |
|
2013-07-18
| ||
| 23:54 | Fixed reversing order bug with sheets in refdb check-in: 1e51940e3d user: matt tags: dev | |
Changes
Modified txtdb/nada3/First_Sheet.dat from [295294b6dc] to [24c7e3bd47].
| ︙ | |||
70 71 72 73 74 75 76 | 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | - + - + - + - + | L 117 M 100 N 91 O 79 P 68 Q 51 |
| ︙ |
Modified txtdb/txtdb.scm from [8b17d73095] to [6d16abb47f].
| ︙ | |||
335 336 337 338 339 340 341 342 343 344 345 346 347 348 | 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 | + + + + + + + + + + + + + + + + + + + + + + + + + + + + |
(equal? col (cadr hed)))
(caddr hed)
(if (null? tal)
#f
(loop (car tal)(cdr tal)))))))
#f)))
;; call with proc = car to get row names
;; call with proc = cadr to get col names
(define (get-rowcol-names path sheet proc)
(let ((fname (conc path "/" sheet ".dat")))
(if (file-exists? fname)
(let ((dat (read-dat fname)))
(if (null? dat)
#f
(let loop ((hed (car dat))
(tal (cdr dat))
(res '()))
(let* ((row-name (proc hed))
(newres (if (not (member row-name res))
(cons row-name res)
res)))
(if (null? tal)
(reverse newres)
(loop (car tal)(cdr tal) newres))))))
#f)))
(define (get-col-names path sheet)
(let ((fname (conc path "/" sheet ".dat")))
(if (file-exists? fname)
(let ((dat (read-dat fname)))
(if (null? dat)
#f
(map cadr dat))))))
(define (edit-refdb path)
(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)
|
| ︙ | |||
356 357 358 359 360 361 362 363 364 365 366 367 368 369 | 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 | + + |
(case action
((edit)
(edit-refdb (car param)))
((ls)
(map print (list-sheets (car param))))))
((eq? num-params 2)
(case action
((getrownames)(print (string-intersperse (get-rowcol-names (car param)(cadr param) car) " ")))
((getcolnames)(print (string-intersperse (get-rowcol-names (car param)(cadr param) cadr) " ")))
((import)
(let ((fname (car param))
(targname (cadr param)))
(import-gnumeric-file fname targname)))))
((eq? num-params 4)
(case action
((lookup) ;; path section row col
|
| ︙ |