ADDED ods.scm Index: ods.scm ================================================================== --- /dev/null +++ ods.scm @@ -0,0 +1,146 @@ +;; Copyright 2011, Matthew Welland. +;; +;; This program is made available under the GNU GPL version 2.0 or +;; greater. See the accompanying file COPYING for details. +;; +;; This program is distributed WITHOUT ANY WARRANTY; without even the +;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR +;; PURPOSE. + +(define ods:dirs + '("Configurations2" + "Configurations2/toolpanel" + "Configurations2/menubar" + "Configurations2/toolbar" + "Configurations2/progressbar" + "Configurations2/floater" + "Configurations2/images" + "Configurations2/images/Bitmaps" + "Configurations2/statusbar" + "Configurations2/popupmenu" + "Configurations2/accelerator" + "META-INF" + "Thumbnails")) + +(define ods:0-len-files + '("Configurations2/accelerator/current.xml" + ;; "Thumbnails/thumbnail.png" + "content.xml" + )) + +(define ods:files + '(("META-INF/manifest.xml" + ("" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + ;; "" + "" + "")) + ("styles.xml" + ("" + "$-$???Page 1??? (???)09/06/2011, 20:48:51Page 1 / 99")) + ("settings.xml" + ("" + "0045161799view100000020000010060true04000020000010060trueSheet2270010060falsetruetruetrue12632256truetruetruetruefalsefalse1270127011truefalsetrue3falsetruetruetrue12701270false1truetrue1true12632256falsefalsetrue0truetruetruefalsetrue")) + ("mimetype" + ("application/vnd.oasis.opendocument.spreadsheet")) + ("meta.xml" + ("" + "Matt Welland2011-09-06T20:46:232011-09-06T20:48:51Matt WellandPT2M29S1LibreOffice/3.3$Linux LibreOffice_project/330m19$Build-301")))) + +(define ods:content-header + '("" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "" + "")) + +(define ods:content-footer + '("" + "" + "" + "")) + +(define (ods:sheet sheetname content) + (conc "" + content + "")) + +;; seems to be called once at top of each sheet, i.e. a column of rows +(define (ods:column) + "")) + +;; cells is a list of ... +(define (ods:row cells) + (apply conc + (cons "" + (append cells (list ""))))) + +;; types are "string" or "float" +(define (ods:cell value type) + (conc "" + "" value "" + "")) + +;; create the directories +(define (ods:construct-dir path) + (for-each + (lambda (subdir) + (system (conc "mkdir -p " path "/" subdir))) + ods:dirs)) + +;; populate the necessary, non-constructed, files +(define (ods:add-non-content-files path) + ;; first the zero-length files, nb// the dir should already be created + (for-each + (lambda (fname) + (system (conc "touch " path "/" fname))) + ods:0-len-files) + ;; create the files with stuff in them + (for-each + (lambda (fdat) + (let* ((name (car fdat)) + (lines (cadr fdat))) + (with-output-to-file (conc path "/" name) + (lambda () + (for-each + (lambda (line) + (print line)) + lines))))) + ods:files)) + + + + ADDED spreadsheet/basic/Configurations2/accelerator/current.xml Index: spreadsheet/basic/Configurations2/accelerator/current.xml ================================================================== --- /dev/null +++ spreadsheet/basic/Configurations2/accelerator/current.xml ADDED spreadsheet/basic/META-INF/manifest.xml Index: spreadsheet/basic/META-INF/manifest.xml ================================================================== --- /dev/null +++ spreadsheet/basic/META-INF/manifest.xml @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + + + + + + + + ADDED spreadsheet/basic/Thumbnails/thumbnail.png Index: spreadsheet/basic/Thumbnails/thumbnail.png ================================================================== --- /dev/null +++ spreadsheet/basic/Thumbnails/thumbnail.png cannot compute difference between binary files ADDED spreadsheet/basic/content.xml Index: spreadsheet/basic/content.xml ================================================================== --- /dev/null +++ spreadsheet/basic/content.xml @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + +Row 1,A + + +Row 1,B + + + + +Row 2,A + + +Row 2,B + + + + + + + +this is sheet one + + + + + + + + +Row 1,A + + +Row 1,B + + + + +Row 2,A + + +Row 2,B + + + + + + + +this is sheet two + + + + + + + + +1 + + +2 + + + + +2 + + +4 + + + + +3 + + +6 + + + + +4 + + +8 + + + + +5 + + +10 + + + + +6 + + +12 + + + + + + ADDED spreadsheet/basic/content.xml~ Index: spreadsheet/basic/content.xml~ ================================================================== --- /dev/null +++ spreadsheet/basic/content.xml~ @@ -0,0 +1,2 @@ + +Row 1,ARow 1,BRow 2,ARow 2,Bthis is sheet oneRow 1,ARow 1,BRow 2,ARow 2,Bthis is sheet two12243648510612 ADDED spreadsheet/basic/meta.xml Index: spreadsheet/basic/meta.xml ================================================================== --- /dev/null +++ spreadsheet/basic/meta.xml @@ -0,0 +1,2 @@ + +Matt Welland2011-09-06T20:46:232011-09-06T22:05:47Matt WellandPT1H19M25S2LibreOffice/3.3$Linux LibreOffice_project/330m19$Build-301 ADDED spreadsheet/basic/mimetype Index: spreadsheet/basic/mimetype ================================================================== --- /dev/null +++ spreadsheet/basic/mimetype @@ -0,0 +1,1 @@ +application/vnd.oasis.opendocument.spreadsheet ADDED spreadsheet/basic/settings.xml Index: spreadsheet/basic/settings.xml ================================================================== --- /dev/null +++ spreadsheet/basic/settings.xml @@ -0,0 +1,2 @@ + +0045161799view100000020000010060true04000020000010060true15000020000010060trueSheet3270010060falsetruetruetrue12632256truetruetruetruefalsefalse1270127011truefalsetrue3falsetruetruetrue12701270false1truetrue1true12632256falsefalsetrue0truetruetruefalsetrue ADDED spreadsheet/basic/styles.xml Index: spreadsheet/basic/styles.xml ================================================================== --- /dev/null +++ spreadsheet/basic/styles.xml @@ -0,0 +1,2 @@ + +$-$???Page 1??? (???)09/06/2011, 22:05:47Page 1 / 99