Megatest

Check-in [59fcabaf30]
Login
Overview
Comment:Converted to using xml instead of using sxml in the stored meta files for txtdb
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | dev
Files: files | file ages | folders
SHA1: 59fcabaf309bd1eb15f14773cafca2ace10ae17d
User & Date: matt on 2013-07-14 03:26:35
Other Links: branch diff | manifest | tags
Context
2013-07-14
03:56
Added full import from gnumeric format and a stub for reading from txtdb check-in: 93afeeb4bd user: matt tags: dev
03:26
Converted to using xml instead of using sxml in the stored meta files for txtdb check-in: 59fcabaf30 user: matt tags: dev
02:23
Extracting sheets to txtdb now works check-in: 9cacf1f935 user: matt tags: dev
Changes

Modified txtdb/txtdb.scm from [8d5711b7f3] to [edae8fdba8].

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
142
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
142
143
144
145
146







-
+

-
+
+







-
-
+
+

-
-
+
+

-
-
-
-
+
+
+
+
+
+
+







						  (let ((colnum-a (assoc a ref-colnums))
							(colnum-b (assoc b ref-colnums)))
						    (if (and colnum-a colnum-b)
							(< (cadr colnum-a)(cadr colnum-b))
							(if (and (string? a)
								 (string? b))
							    (string< a b))))))))))
    (with-output-to-file (conc targdir "/sxml/" sheet-name ".sxml")
    (with-output-to-file (conc targdir "/xml/" sheet-name ".xml")
      (lambda ()
	(pp remaining)))))
	(print (sxml-serializer#serialize-sxml remaining))))
    sheet-name))


(define (extract-txtdb dat targdir)
  (let* ((wrkbk   (find-section   dat   'http://www.gnumeric.org/v10.dtd:Workbook))
	 (wrk-rem (remove-section dat   'http://www.gnumeric.org/v10.dtd:Workbook))
	 (sheets  (find-section   wrkbk 'http://www.gnumeric.org/v10.dtd:Sheets))
	 (sht-rem (remove-section wrkbk 'http://www.gnumeric.org/v10.dtd:Sheets)))
    (create-directory (conc targdir "/sxml") #t)
    (with-output-to-file (conc targdir "/sxml/workbook.sxml")
    (create-directory (conc targdir "/xml") #t)
    (with-output-to-file (conc targdir "/xml/workbook.xml")
      (lambda ()
	(pp wrk-rem)))
    (with-output-to-file (conc targdir "/sxml/sheets.sxml")
	(print (sxml-serializer#serialize-sxml wrk-rem))))
    (with-output-to-file (conc targdir "/xml/sheets.xml")
      (lambda ()
	(pp sht-rem)))
    (for-each (lambda (sheet)
		(sheet->txtdb sheet targdir))
	      sheets)))
	(print (sxml-serializer#serialize-sxml sht-rem))))
    (let ((sheet-names (map (lambda (sheet)
			      (sheet->txtdb sheet targdir))
			    sheets)))
      (with-output-to-file (conc targdir "/sheet-names.cfg")
	(lambda ()
	  (map print sheet-names))))))

#|  
 (define x (txtdb:read-gnumeric-xml "testdata-stripped.xml"))



;; Write out sxml