204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
|
;; data format:
;; '( (sheet1 (r1c1 r1c2 r1c3 ...)
;; (r2c1 r2c3 r2c3 ...) )
;; (sheet2 ( ... )
;; ( ... ) ) )
(define (ods:list->ods path fname data)
(if (not (common:file-exists? path))
(print "ERROR: path to create ods data must pre-exist")
(begin
(with-output-to-file (conc path "/content.xml")
(lambda ()
(ods:construct-dir path)
(ods:add-non-content-files path)
(ods:make-thumbnail path)
|
|
|
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
|
;; data format:
;; '( (sheet1 (r1c1 r1c2 r1c3 ...)
;; (r2c1 r2c3 r2c3 ...) )
;; (sheet2 ( ... )
;; ( ... ) ) )
(define (ods:list->ods path fname data)
(if (not (file-exists? path))
(print "ERROR: path to create ods data must pre-exist")
(begin
(with-output-to-file (conc path "/content.xml")
(lambda ()
(ods:construct-dir path)
(ods:add-non-content-files path)
(ods:make-thumbnail path)
|