/[public]/psiconv/trunk/lib/psiconv/parse_driver.c
ViewVC logotype

Contents of /psiconv/trunk/lib/psiconv/parse_driver.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 184 - (show annotations)
Tue Jan 6 20:15:01 2004 UTC (20 years, 2 months ago) by frodo
File MIME type: text/plain
File size: 30803 byte(s)
(Frodo) Unicode transition

Note: this commit breaks psiconv. The programs in the extra directory should
work properly.

  * Change all datastructures to use unicode for character encodings
  * Added psiconv_error function
  * Called psiconv_error at places where a warning was stupid
  * Added psiconv_progress in all generate functions
  * Added lev parameter to all generate functions
  * Removed general.h from CVS (we have general.h.in, after all)
  * Probably other stuff I forgot

1 /*
2 parse_driver.c - Part of psiconv, a PSION 5 file formats converter
3 Copyright (c) 1999, 2000 Frodo Looijaard <frodol@dds.nl>
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18 */
19
20 #include "config.h"
21 #include "compat.h"
22
23 #include <stdlib.h>
24 #include <string.h>
25
26 #include "parse.h"
27 #include "parse_routines.h"
28 #include "unicode.h"
29
30 #ifdef DMALLOC
31 #include <dmalloc.h>
32 #endif
33
34 static psiconv_ucs2 unicode_paint[10] = { 'P','a','i','n','t','.','a','p','p',0 };
35 static psiconv_ucs2 unicode_texted[11] ={ 'T','e','x','t','E','d','.','a','p','p',0 };
36 static psiconv_ucs2 unicode_word[9] = { 'W','o','r','d','.','a','p','p',0 };
37 static psiconv_ucs2 unicode_sheet[10] = { 'S','h','e','e','t','.','a','p','p',0 };
38
39 psiconv_file_type_t psiconv_file_type(const psiconv_config config,
40 psiconv_buffer buf,int *length,
41 psiconv_header_section *result)
42 {
43 psiconv_header_section header;
44 psiconv_file_type_t res;
45 int leng;
46
47 if ((psiconv_parse_header_section(config,buf,0,0,&leng,&header)))
48 return psiconv_unknown_file;
49 res = header->file;
50 if (result)
51 *result = header;
52 else
53 psiconv_free_header_section(header);
54 if (length)
55 *length = leng;
56 return res;
57 }
58
59 int psiconv_parse(const psiconv_config config,const psiconv_buffer buf,
60 psiconv_file *result)
61 {
62 int res=0;
63 int lev=0;
64 int off=0;
65 int leng;
66
67 if (!((*result) = malloc(sizeof(**result))))
68 goto ERROR1;
69
70 (*result)->type = psiconv_file_type(config,buf,&leng,NULL);
71 if ((*result)->type == psiconv_unknown_file) {
72 psiconv_warn(config,lev+1,off,"Unknown file type: can't parse!");
73 (*result)->file = NULL;
74 } else if ((*result)->type == psiconv_word_file)
75 res = psiconv_parse_word_file(config,buf,lev+2,leng,
76 (psiconv_word_f *)(&((*result)->file)));
77 else if ((*result)->type == psiconv_texted_file)
78 res = psiconv_parse_texted_file(config,buf,lev+2,leng,
79 (psiconv_texted_f *)(&((*result)->file)));
80 else if ((*result)->type == psiconv_mbm_file)
81 res = psiconv_parse_mbm_file(config,buf,lev+2,leng,
82 (psiconv_mbm_f *)(&((*result)->file)));
83 else if ((*result)->type == psiconv_sketch_file)
84 res = psiconv_parse_sketch_file(config,buf,lev+2,leng,
85 (psiconv_sketch_f *)(&((*result)->file)));
86 else if ((*result)->type == psiconv_clipart_file)
87 res = psiconv_parse_clipart_file(config,buf,lev+2,leng,
88 (psiconv_clipart_f *)(&((*result)->file)));
89 else if ((*result)->type == psiconv_sheet_file)
90 res = psiconv_parse_sheet_file(config,buf,lev+2,leng,
91 (psiconv_sheet_f *)(&((*result)->file)));
92 else {
93 psiconv_warn(config,lev+1,off,"Can't parse this file yet!");
94 (*result)->file = NULL;
95 }
96 if (res)
97 goto ERROR2;
98 return 0;
99
100 ERROR2:
101 free(*result);
102 ERROR1:
103 psiconv_error(config,lev+1,off,"Reading of Psion File failed");
104 if (res == 0)
105 return -PSICONV_E_NOMEM;
106 else
107 return res;
108 }
109
110 int psiconv_parse_clipart_file(const psiconv_config config,
111 const psiconv_buffer buf,int lev,
112 psiconv_u32 off, psiconv_clipart_f *result)
113 {
114 int res=0;
115 int i;
116 psiconv_jumptable_section table;
117 psiconv_clipart_section clipart;
118 psiconv_u32 *entry;
119
120 psiconv_progress(config,lev+1,off,"Going to read a clipart file");
121 if (!((*result) = malloc(sizeof(**result))))
122 goto ERROR1;
123
124 psiconv_progress(config,lev+2,off,"Going to read the MBM jumptable");
125 if ((res = psiconv_parse_jumptable_section(config,buf,lev+2,off, NULL,&table)))
126 goto ERROR2;
127
128 psiconv_progress(config,lev+2,off,"Going to read the clipart sections");
129 if (!((*result)->sections = psiconv_list_new(sizeof(*clipart))))
130 goto ERROR3;
131 for (i = 0; i < psiconv_list_length(table); i ++) {
132 if (!(entry = psiconv_list_get(table,i)))
133 goto ERROR4;
134 psiconv_progress(config,lev+3,off,"Going to read clipart section %i",i);
135 if ((res = psiconv_parse_clipart_section(config,buf,lev+3,*entry,NULL,&clipart)))
136 goto ERROR4;
137 if ((res = psiconv_list_add((*result)->sections,clipart)))
138 goto ERROR5;
139 }
140
141 psiconv_free_jumptable_section(table);
142 psiconv_progress(config,lev+1,off,"End of clipart file");
143 return res;
144 ERROR5:
145 psiconv_free_clipart_section(clipart);
146 ERROR4:
147 for (i = 0; i < psiconv_list_length((*result)->sections); i++) {
148 if (!(clipart = psiconv_list_get((*result)->sections,i))) {
149 psiconv_error(config,lev+1,off,"Massive memory corruption");
150 goto ERROR3;
151 }
152 psiconv_free_clipart_section(clipart);
153 }
154 psiconv_list_free((*result)->sections);
155 ERROR3:
156 psiconv_free_jumptable_section(table);
157 ERROR2:
158 free(*result);
159 ERROR1:
160 psiconv_error(config,lev+1,off,"Reading of Clipart File failed");
161 if (res == 0)
162 return -PSICONV_E_NOMEM;
163 else
164 return res;
165 }
166
167 int psiconv_parse_mbm_file(const psiconv_config config,
168 const psiconv_buffer buf,int lev, psiconv_u32 off,
169 psiconv_mbm_f *result)
170 {
171 int res=0;
172 int i;
173 psiconv_jumptable_section table;
174 psiconv_paint_data_section paint;
175 psiconv_u32 *entry;
176 psiconv_u32 sto;
177
178 psiconv_progress(config,lev+1,off,"Going to read a mbm file");
179 if (!(*result = malloc(sizeof(**result))))
180 goto ERROR1;
181
182 psiconv_progress(config,lev+2,off,"Going to read the offset of the MBM jumptable");
183 sto = psiconv_read_u32(config,buf,lev+2,off,&res);
184 if (res)
185 goto ERROR2;
186 psiconv_debug(config,lev+2,off,"Offset: %08x",sto);
187
188 psiconv_progress(config,lev+2,off,"Going to read the MBM jumptable");
189 if ((res = psiconv_parse_jumptable_section(config,buf,lev+2,sto, NULL,&table)))
190 goto ERROR2;
191
192 psiconv_progress(config,lev+2,off,"Going to read the picture sections");
193 if (!((*result)->sections = psiconv_list_new(sizeof(*paint))))
194 goto ERROR3;
195 for (i = 0; i < psiconv_list_length(table); i ++) {
196 if (!(entry = psiconv_list_get(table,i)))
197 goto ERROR4;
198 psiconv_progress(config,lev+3,off,"Going to read picture section %i",i);
199 if ((res = psiconv_parse_paint_data_section(config,buf,lev+3,*entry,NULL,
200 0,&paint)))
201 goto ERROR4;
202 if ((res = psiconv_list_add((*result)->sections,paint)))
203 goto ERROR5;
204 }
205
206 psiconv_free_jumptable_section(table);
207 psiconv_progress(config,lev+1,off,"End of mbm file");
208 return 0;
209 ERROR5:
210 psiconv_free_paint_data_section(paint);
211 ERROR4:
212 for (i = 0; i < psiconv_list_length((*result)->sections); i++) {
213 if (!(paint = psiconv_list_get((*result)->sections,i))) {
214 psiconv_error(config,lev+1,off,"Massive memory corruption");
215 goto ERROR3;
216 }
217 psiconv_free_paint_data_section(paint);
218 }
219 psiconv_list_free((*result)->sections);
220 ERROR3:
221 psiconv_free_jumptable_section(table);
222 ERROR2:
223 free(*result);
224 ERROR1:
225 psiconv_error(config,lev+1,off,"Reading of MBM File failed");
226 if (res == 0)
227 return -PSICONV_E_NOMEM;
228 else
229 return res;
230 }
231
232 int psiconv_parse_sketch_file(const psiconv_config config,
233 const psiconv_buffer buf,int lev,
234 psiconv_u32 off,
235 psiconv_sketch_f *result)
236 {
237 psiconv_section_table_section table;
238 psiconv_application_id_section appl_id;
239 psiconv_u32 applid_sec = 0;
240 psiconv_u32 sketch_sec = 0;
241 psiconv_u32 sto;
242 psiconv_section_table_entry entry;
243 int i;
244 int res=0;
245 char *temp_str;
246
247 psiconv_progress(config,lev+1,off,"Going to read a sketch file");
248 if (!(*result = malloc(sizeof(**result))))
249 goto ERROR1;
250
251 psiconv_progress(config,lev+2,off,
252 "Going to read the offset of the section table section");
253 sto = psiconv_read_u32(config,buf,lev+2,off,&res);
254 if (res)
255 goto ERROR2;
256 psiconv_debug(config,lev+2,off,"Offset: %08x",sto);
257
258 psiconv_progress(config,lev+2,sto, "Going to read the section table section");
259 if ((res = psiconv_parse_section_table_section(config,buf,lev+2,sto, NULL,&table)))
260 goto ERROR2;
261
262 for (i = 0; i < psiconv_list_length(table); i ++) {
263 psiconv_progress(config,lev+2,sto, "Going to read entry %d",i);
264 if (!(entry = psiconv_list_get(table,i)))
265 goto ERROR3;
266 if (entry->id == PSICONV_ID_APPL_ID_SECTION) {
267 applid_sec = entry->offset;
268 psiconv_debug(config,lev+3,sto,
269 "Found the Application ID section at %08x",applid_sec);
270 } else if (entry->id == PSICONV_ID_SKETCH_SECTION) {
271 sketch_sec = entry->offset;
272 psiconv_debug(config,lev+3,sto,
273 "Found the Sketch section at %08x",sketch_sec);
274 } else {
275 psiconv_warn(config,lev+3,sto,
276 "Found unknown section in the Section Table (ignoring)");
277 psiconv_debug(config,lev+3,sto,
278 "Section ID %08x, offset %08x",entry->id,entry->offset);
279 }
280 }
281
282 psiconv_progress(config,lev+2,sto, "Looking for the Application ID section");
283 if (! applid_sec) {
284 psiconv_error(config,lev+2,sto,
285 "Application ID section not found in the section table");
286 res = -PSICONV_E_PARSE;
287 goto ERROR3;
288 } else {
289 psiconv_debug(config,lev+2,sto,
290 "Application ID section at offset %08x",applid_sec);
291 if ((res = psiconv_parse_application_id_section(config,buf,lev+2,applid_sec,NULL,
292 &appl_id)))
293 goto ERROR3;
294 }
295 if ((appl_id->id != PSICONV_ID_SKETCH) ||
296 psiconv_unicode_strcmp(appl_id->name,unicode_paint)) {
297 psiconv_warn(config,lev+2,applid_sec,
298 "Application ID section contains unexpected data");
299 psiconv_debug(config,lev+2,applid_sec,"ID: %08x expected, %08x found",
300 PSICONV_ID_SKETCH,appl_id->id);
301 if (!(temp_str = psiconv_make_printable(config,appl_id->name)))
302 goto ERROR4;
303 psiconv_debug(config,lev+2,applid_sec,"Name: `%s' expected, `%s' found",
304 "Paint.app",temp_str);
305 free(temp_str);
306 res = -PSICONV_E_PARSE;
307 goto ERROR4;
308 }
309
310 psiconv_progress(config,lev+2,sto, "Looking for the Sketch section");
311 if (! sketch_sec) {
312 psiconv_warn(config,lev+2,sto,
313 "Sketch section not found in the section table");
314 } else {
315 psiconv_debug(config,lev+2,sto,
316 "Sketch section at offset %08x",applid_sec);
317 if ((res = psiconv_parse_sketch_section(config,buf,lev+2,sketch_sec,NULL,
318 &(*result)->sketch_sec)))
319 goto ERROR4;
320 }
321
322 psiconv_free_application_id_section(appl_id);
323 psiconv_free_section_table_section(table);
324
325 psiconv_progress(config,lev+1,off,"End of sketch file");
326 return res;
327
328 ERROR4:
329 psiconv_free_application_id_section(appl_id);
330 ERROR3:
331 free(table);
332 ERROR2:
333 free(*result);
334 ERROR1:
335 psiconv_error(config,lev+1,off,"Reading of Sketch File failed");
336 if (res == 0)
337 return -PSICONV_E_NOMEM;
338 else
339 return res;
340 }
341
342
343 int psiconv_parse_texted_file(const psiconv_config config,
344 const psiconv_buffer buf,int lev,
345 psiconv_u32 off,
346 psiconv_texted_f *result)
347 {
348 int res=0;
349 psiconv_section_table_section table;
350 psiconv_application_id_section appl_id;
351 char *temp_str;
352 psiconv_character_layout base_char;
353 psiconv_paragraph_layout base_para;
354 psiconv_u32 page_sec = 0;
355 psiconv_u32 texted_sec = 0;
356 psiconv_u32 applid_sec = 0;
357 psiconv_u32 sto;
358 psiconv_section_table_entry entry;
359 int i;
360
361 psiconv_progress(config,lev+1,off,"Going to read a texted file");
362 if (!(*result = malloc(sizeof(**result))))
363 goto ERROR1;
364
365 psiconv_progress(config,lev+2,off,
366 "Going to read the offset of the section table section");
367 sto = psiconv_read_u32(config,buf,lev+2,off,&res);
368 if (res)
369 goto ERROR2;
370 psiconv_debug(config,lev+2,off,"Offset: %08x",sto);
371
372 psiconv_progress(config,lev+2,sto, "Going to read the section table section");
373 if ((res = psiconv_parse_section_table_section(config,buf,lev+2,sto, NULL,&table)))
374 goto ERROR2;
375
376 for (i = 0; i < psiconv_list_length(table); i ++) {
377 psiconv_progress(config,lev+2,sto, "Going to read entry %d",i);
378 if (!(entry = psiconv_list_get(table,i)))
379 goto ERROR3;
380 if (entry->id == PSICONV_ID_APPL_ID_SECTION) {
381 applid_sec = entry->offset;
382 psiconv_debug(config,lev+3,sto,
383 "Found the Application ID section at %08x",applid_sec);
384 } else if (entry->id == PSICONV_ID_PAGE_LAYOUT_SECTION) {
385 page_sec = entry->offset;
386 psiconv_debug(config,lev+3,sto,
387 "Found the Page Layout section at %08x",page_sec);
388 } else if (entry->id == PSICONV_ID_TEXTED) {
389 texted_sec = entry->offset;
390 psiconv_debug(config,lev+3,sto,
391 "Found the TextEd section at %08x",texted_sec);
392 } else {
393 psiconv_warn(config,lev+3,sto,
394 "Found unknown section in the Section Table (ignoring)");
395 psiconv_debug(config,lev+3,sto,
396 "Section ID %08x, offset %08x",entry->id,entry->offset);
397 }
398 }
399
400 psiconv_progress(config,lev+2,sto, "Looking for the Application ID section");
401 if (! applid_sec) {
402 psiconv_error(config,lev+2,sto,
403 "Application ID section not found in the section table");
404 res = -PSICONV_E_PARSE;
405 goto ERROR3;
406 } else {
407 psiconv_debug(config,lev+2,sto,
408 "Application ID section at offset %08x",applid_sec);
409 if ((res = psiconv_parse_application_id_section(config,buf,lev+2,applid_sec,NULL,
410 &appl_id)))
411 goto ERROR3;
412 }
413
414 if ((appl_id->id != PSICONV_ID_TEXTED) ||
415 psiconv_unicode_strcmp(appl_id->name,unicode_texted)) {
416 psiconv_warn(config,lev+2,applid_sec,
417 "Application ID section contains unexpected data");
418 psiconv_debug(config,lev+2,applid_sec,"ID: %08x expected, %08x found",
419 PSICONV_ID_TEXTED,appl_id->id);
420 if (!(temp_str = psiconv_make_printable(config,appl_id->name)))
421 goto ERROR4;
422 psiconv_debug(config,lev+2,applid_sec,"Name: `%s' expected, `%s' found",
423 "TextEd.app",temp_str);
424 free(temp_str);
425 res = -PSICONV_E_PARSE;
426 goto ERROR4;
427 }
428
429 psiconv_progress(config,lev+2,sto,
430 "Looking for the Page layout section");
431 if (! page_sec) {
432 psiconv_error(config,lev+2,sto,
433 "Page layout section not found in the section table");
434 res = -PSICONV_E_PARSE;
435 goto ERROR4;
436 } else {
437 psiconv_debug(config,lev+2,sto,
438 "Page layout section at offset %08x",page_sec);
439 if ((res = psiconv_parse_page_layout_section(config,buf,lev+2,page_sec,NULL,
440 &(*result)->page_sec)))
441 goto ERROR4;
442 }
443
444 if (!(base_char = psiconv_basic_character_layout()))
445 goto ERROR5;
446 if (!(base_para = psiconv_basic_paragraph_layout()))
447 goto ERROR6;
448
449 psiconv_progress(config,lev+2,sto,
450 "Looking for the TextEd section");
451 if (! texted_sec) {
452 psiconv_error(config,lev+2,sto,
453 "TextEd section not found in the section table");
454 res = -PSICONV_E_PARSE;
455 goto ERROR7;
456 } else {
457 psiconv_debug(config,lev+2,sto, "TextEd section at offset %08x",texted_sec);
458 if ((res = psiconv_parse_texted_section(config,buf,lev+2,texted_sec,NULL,
459 &(*result)->texted_sec,
460 base_char,base_para)))
461 goto ERROR7;
462 }
463 psiconv_free_character_layout(base_char);
464 psiconv_free_paragraph_layout(base_para);
465
466 psiconv_free_application_id_section(appl_id);
467 psiconv_free_section_table_section(table);
468
469 psiconv_progress(config,lev+1,off,"End of TextEd file");
470 return 0;
471
472 ERROR7:
473 psiconv_free_paragraph_layout(base_para);
474 ERROR6:
475 psiconv_free_character_layout(base_char);
476 ERROR5:
477 psiconv_free_page_layout_section((*result)->page_sec);
478 ERROR4:
479 psiconv_free_application_id_section(appl_id);
480 ERROR3:
481 psiconv_free_section_table_section(table);
482 ERROR2:
483 free(*result);
484 ERROR1:
485 psiconv_error(config,lev+1,off,"Reading of TextEd File failed");
486 if (res == 0)
487 return -PSICONV_E_NOMEM;
488 else
489 return res;
490 }
491
492 int psiconv_parse_word_file(const psiconv_config config,
493 const psiconv_buffer buf,int lev, psiconv_u32 off,
494 psiconv_word_f *result)
495 {
496 int res=0;
497 psiconv_section_table_section table;
498 psiconv_application_id_section appl_id;
499 char *temp_str;
500 psiconv_u32 pwd_sec = 0;
501 psiconv_u32 status_sec = 0;
502 psiconv_u32 styles_sec = 0;
503 psiconv_u32 page_sec = 0;
504 psiconv_u32 text_sec = 0;
505 psiconv_u32 layout_sec = 0;
506 psiconv_u32 applid_sec = 0;
507 psiconv_section_table_entry entry;
508 psiconv_u32 sto;
509 int i;
510
511 psiconv_progress(config,lev+1,off,"Going to read a word file");
512 if (!(*result = malloc(sizeof(**result))))
513 goto ERROR1;
514
515 psiconv_progress(config,lev+2,off,
516 "Going to read the offset of the section table section");
517 sto = psiconv_read_u32(config,buf,lev+2,off,&res);
518 if (res)
519 goto ERROR2;
520 psiconv_debug(config,lev+2,off,"Offset: %08x",sto);
521
522 psiconv_progress(config,lev+2,sto,
523 "Going to read the section table section");
524 if ((res = psiconv_parse_section_table_section(config,buf,lev+2,sto, NULL,&table)))
525 goto ERROR2;
526
527 for (i = 0; i < psiconv_list_length(table); i ++) {
528 psiconv_progress(config,lev+2,sto, "Going to read entry %d",i);
529 if (!(entry = psiconv_list_get(table,i)))
530 goto ERROR3;
531 if (entry->id == PSICONV_ID_APPL_ID_SECTION) {
532 applid_sec = entry->offset;
533 psiconv_debug(config,lev+3,sto,
534 "Found the Application ID section at %08x",applid_sec);
535 } else if (entry->id == PSICONV_ID_PAGE_LAYOUT_SECTION) {
536 page_sec = entry->offset;
537 psiconv_debug(config,lev+3,sto,
538 "Found the Page Layout section at %08x",page_sec);
539 } else if (entry->id == PSICONV_ID_TEXT_SECTION) {
540 text_sec = entry->offset;
541 psiconv_debug(config,lev+3,sto, "Found the Text section at %08x",text_sec);
542 } else if (entry->id == PSICONV_ID_PASSWORD_SECTION) {
543 pwd_sec = entry->offset;
544 psiconv_debug(config,lev+3,sto,
545 "Found the Password section at %08x",pwd_sec);
546 psiconv_error(config,lev+3,sto,
547 "Password section found - can't read encrypted data");
548 res = -PSICONV_E_PARSE;
549 goto ERROR3;
550 } else if (entry->id == PSICONV_ID_WORD_STATUS_SECTION) {
551 status_sec = entry->offset;
552 psiconv_debug(config,lev+3,sto,
553 "Found the Word Status section at %08x",status_sec);
554 } else if (entry->id == PSICONV_ID_WORD_STYLES_SECTION) {
555 styles_sec = entry->offset;
556 psiconv_debug(config,lev+3,sto,
557 "Found the Word Styles section at %08x",styles_sec);
558 } else if (entry->id == PSICONV_ID_LAYOUT_SECTION) {
559 layout_sec = entry->offset;
560 psiconv_debug(config,lev+3,sto,
561 "Found the Layout section at %08x",layout_sec);
562 } else {
563 psiconv_warn(config,lev+3,sto,
564 "Found unknown section in the Section Table (ignoring)");
565 psiconv_debug(config,lev+3,sto,
566 "Section ID %08x, offset %08x",entry->id,entry->offset);
567 }
568 }
569
570
571 psiconv_progress(config,lev+2,sto,
572 "Looking for the Status section");
573 if (!status_sec) {
574 psiconv_error(config,lev+2,sto, "Status section not found in the section table");
575 res = -PSICONV_E_PARSE;
576 goto ERROR3;
577 } else {
578 psiconv_debug(config,lev+2,sto, "Status section at offset %08x",status_sec);
579 if ((res = psiconv_parse_word_status_section(config,buf,lev+2,status_sec,NULL,
580 &((*result)->status_sec))))
581 goto ERROR3;
582 }
583
584 psiconv_progress(config,lev+2,sto, "Looking for the Application ID section");
585 if (! applid_sec) {
586 psiconv_error(config,lev+2,sto,
587 "Application ID section not found in the section table");
588 res = -PSICONV_E_PARSE;
589 goto ERROR4;
590 } else {
591 psiconv_debug(config,lev+2,sto,
592 "Application ID section at offset %08x",applid_sec);
593 if ((res = psiconv_parse_application_id_section(config,buf,lev+2,applid_sec,NULL,
594 &appl_id)))
595 goto ERROR4;
596 }
597 if ((appl_id->id != PSICONV_ID_WORD) ||
598 psiconv_unicode_strcmp(appl_id->name,unicode_word)) {
599 psiconv_warn(config,lev+2,applid_sec,
600 "Application ID section contains unexpected data");
601 psiconv_debug(config,lev+2,applid_sec,"ID: %08x expected, %08x found",
602 PSICONV_ID_WORD,appl_id->id);
603 if (!(temp_str = psiconv_make_printable(config,appl_id->name)))
604 goto ERROR5;
605 psiconv_debug(config,lev+2,applid_sec,"Name: `%s' expected, `%s' found",
606 "Word.app",temp_str);
607 free(temp_str);
608 res = -PSICONV_E_PARSE;
609 goto ERROR5;
610 }
611
612 psiconv_progress(config,lev+2,sto,
613 "Looking for the Page layout section");
614 if (! page_sec) {
615 psiconv_error(config,lev+2,sto,
616 "Page layout section not found in the section table");
617 res = -PSICONV_E_PARSE;
618 goto ERROR5;
619 } else {
620 psiconv_debug(config,lev+2,sto,
621 "Page layout section at offset %08x",page_sec);
622 if ((res = psiconv_parse_page_layout_section(config,buf,lev+2,page_sec,NULL,
623 &(*result)->page_sec)))
624 goto ERROR5;
625 }
626
627 psiconv_progress(config,lev+2,sto,
628 "Looking for the Word Style section");
629 if (!styles_sec) {
630 psiconv_error(config,lev+2,sto,
631 "Word styles section not found in the section table");
632 res = -PSICONV_E_PARSE;
633 goto ERROR6;
634 } else {
635 psiconv_debug(config,lev+2,sto,
636 "Word styles section at offset %08x",styles_sec);
637 if ((res = psiconv_parse_word_styles_section(config,buf,lev+2,styles_sec,NULL,
638 &(*result)->styles_sec)))
639 goto ERROR6;
640 }
641
642 psiconv_progress(config,lev+2,sto,
643 "Looking for the Text section");
644 if (!text_sec) {
645 psiconv_error(config,lev+2,sto, "Text section not found in the section table");
646 res = -PSICONV_E_PARSE;
647 goto ERROR7;
648 } else {
649 psiconv_debug(config,lev+2,sto,
650 "Text section at offset %08x",text_sec);
651 if ((res = psiconv_parse_text_section(config,buf,lev+2,text_sec,NULL,
652 &(*result)->paragraphs)))
653 goto ERROR7;
654 }
655
656 psiconv_progress(config,lev+2,sto, "Looking for the Layout section");
657 if (!layout_sec) {
658 psiconv_debug(config,lev+2,sto, "No layout section today");
659 } else {
660 psiconv_debug(config,lev+2,sto,
661 "Layout section at offset %08x",layout_sec);
662 if ((res = psiconv_parse_styled_layout_section(config,buf,lev+2,layout_sec,NULL,
663 (*result)->paragraphs,
664 (*result)->styles_sec)))
665 goto ERROR8;
666 }
667
668 psiconv_free_application_id_section(appl_id);
669 psiconv_free_section_table_section(table);
670
671 psiconv_progress(config,lev+1,off,"End of word file");
672 return 0;
673
674
675 ERROR8:
676 psiconv_free_text_and_layout((*result)->paragraphs);
677 ERROR7:
678 psiconv_free_word_styles_section((*result)->styles_sec);
679 ERROR6:
680 psiconv_free_page_layout_section((*result)->page_sec);
681 ERROR5:
682 psiconv_free_application_id_section(appl_id);
683 ERROR4:
684 psiconv_free_word_status_section((*result)->status_sec);
685 ERROR3:
686 psiconv_free_section_table_section(table);
687 ERROR2:
688 free(*result);
689 ERROR1:
690 psiconv_error(config,lev+1,off,"Reading of Word File failed");
691 if (res == 0)
692 return -PSICONV_E_NOMEM;
693 else
694 return res;
695 }
696
697 int psiconv_parse_sheet_file(const psiconv_config config,
698 const psiconv_buffer buf,int lev, psiconv_u32 off,
699 psiconv_sheet_f *result)
700 {
701 int res=0;
702 psiconv_section_table_section table;
703 psiconv_application_id_section appl_id;
704 char *temp_str;
705 psiconv_u32 pwd_sec = 0;
706 psiconv_u32 status_sec = 0;
707 psiconv_u32 page_sec = 0;
708 psiconv_u32 applid_sec = 0;
709 psiconv_u32 workbook_sec = 0;
710 psiconv_section_table_entry entry;
711 psiconv_u32 sto;
712 int i;
713
714 psiconv_progress(config,lev+1,off,"Going to read a sheet file");
715 if (!(*result = malloc(sizeof(**result))))
716 goto ERROR1;
717
718 psiconv_progress(config,lev+2,off,
719 "Going to read the offset of the section table section");
720 sto = psiconv_read_u32(config,buf,lev+2,off,&res);
721 if (res)
722 goto ERROR2;
723 psiconv_debug(config,lev+2,off,"Offset: %08x",sto);
724
725 psiconv_progress(config,lev+2,sto,
726 "Going to read the section table section");
727 if ((res = psiconv_parse_section_table_section(config,buf,lev+2,sto, NULL,&table)))
728 goto ERROR2;
729
730 for (i = 0; i < psiconv_list_length(table); i ++) {
731 psiconv_progress(config,lev+2,sto, "Going to read entry %d",i);
732 if (!(entry = psiconv_list_get(table,i)))
733 goto ERROR3;
734 if (entry->id == PSICONV_ID_APPL_ID_SECTION) {
735 applid_sec = entry->offset;
736 psiconv_debug(config,lev+3,sto,
737 "Found the Application ID section at %08x",applid_sec);
738 } else if (entry->id == PSICONV_ID_PAGE_LAYOUT_SECTION) {
739 page_sec = entry->offset;
740 psiconv_debug(config,lev+3,sto,
741 "Found the Page Layout section at %08x",page_sec);
742 } else if (entry->id == PSICONV_ID_PASSWORD_SECTION) {
743 pwd_sec = entry->offset;
744 psiconv_debug(config,lev+3,sto,
745 "Found the Password section at %08x",pwd_sec);
746 psiconv_error(config,lev+3,sto,
747 "Password section found - can't read encrypted data");
748 res = -PSICONV_E_PARSE;
749 goto ERROR3;
750 } else if (entry->id == PSICONV_ID_SHEET_WORKBOOK_SECTION) {
751 workbook_sec = entry->offset;
752 psiconv_debug(config,lev+3,sto,
753 "Found the Sheet Workbook section at %08x",workbook_sec);
754 } else if (entry->id == PSICONV_ID_SHEET_STATUS_SECTION) {
755 status_sec = entry->offset;
756 psiconv_debug(config,lev+3,sto,
757 "Found the Sheet Status section at %08x",status_sec);
758 } else {
759 psiconv_warn(config,lev+3,sto,
760 "Found unknown section in the Section Table (ignoring)");
761 psiconv_debug(config,lev+3,sto,
762 "Section ID %08x, offset %08x",entry->id,entry->offset);
763 }
764 }
765
766
767 psiconv_progress(config,lev+2,sto,
768 "Looking for the Status section");
769 if (!status_sec) {
770 psiconv_error(config,lev+2,sto, "Status section not found in the section table");
771 res = -PSICONV_E_PARSE;
772 goto ERROR3;
773 } else {
774 psiconv_debug(config,lev+2,sto, "Status section at offset %08x",status_sec);
775 if ((res = psiconv_parse_sheet_status_section(config,buf,lev+2,status_sec,NULL,
776 &((*result)->status_sec))))
777 goto ERROR3;
778 }
779
780 psiconv_progress(config,lev+2,sto, "Looking for the Application ID section");
781 if (! applid_sec) {
782 psiconv_error(config,lev+2,sto,
783 "Application ID section not found in the section table");
784 res = -PSICONV_E_PARSE;
785 goto ERROR4;
786 } else {
787 psiconv_debug(config,lev+2,sto,
788 "Application ID section at offset %08x",applid_sec);
789 if ((res = psiconv_parse_application_id_section(config,buf,lev+2,applid_sec,NULL,
790 &appl_id)))
791 goto ERROR4;
792 }
793 if ((appl_id->id != PSICONV_ID_SHEET) ||
794 psiconv_unicode_strcmp(appl_id->name,unicode_sheet)) {
795 psiconv_warn(config,lev+2,applid_sec,
796 "Application ID section contains unexpected data");
797 psiconv_debug(config,lev+2,applid_sec,"ID: %08x expected, %08x found",
798 PSICONV_ID_SHEET,appl_id->id);
799 if (!(temp_str = psiconv_make_printable(config,appl_id->name)))
800 goto ERROR5;
801 psiconv_debug(config,lev+2,applid_sec,"Name: `%s' expected, `%s' found",
802 "Sheet.app",temp_str);
803 free(temp_str);
804 res = -PSICONV_E_PARSE;
805 goto ERROR5;
806 }
807
808 psiconv_progress(config,lev+2,sto,
809 "Looking for the Page layout section");
810 if (! page_sec) {
811 psiconv_error(config,lev+2,sto,
812 "Page layout section not found in the section table");
813 res = -PSICONV_E_PARSE;
814 goto ERROR5;
815 } else {
816 psiconv_debug(config,lev+2,sto,
817 "Page layout section at offset %08x",page_sec);
818 if ((res = psiconv_parse_page_layout_section(config,buf,lev+2,page_sec,NULL,
819 &(*result)->page_sec)))
820 goto ERROR5;
821 }
822
823 psiconv_progress(config,lev+2,sto,
824 "Looking for the Sheet Workbook section");
825 if (! workbook_sec) {
826 psiconv_error(config,lev+2,sto,
827 "Sheet workbook section not found in the section table");
828 res = -PSICONV_E_PARSE;
829 goto ERROR6;
830 } else {
831 psiconv_debug(config,lev+2,sto,
832 "Sheet workbook section at offset %08x",page_sec);
833 if ((res = psiconv_parse_sheet_workbook_section(config,buf,lev+2,workbook_sec,NULL,
834 &(*result)->workbook_sec)))
835 goto ERROR6;
836 }
837
838 psiconv_free_application_id_section(appl_id);
839 psiconv_free_section_table_section(table);
840
841 psiconv_progress(config,lev+1,off,"End of Sheet file");
842 return 0;
843
844 ERROR6:
845 psiconv_free_page_layout_section((*result)->page_sec);
846 ERROR5:
847 psiconv_free_application_id_section(appl_id);
848 ERROR4:
849 psiconv_free_sheet_status_section((*result)->status_sec);
850 ERROR3:
851 psiconv_free_section_table_section(table);
852 ERROR2:
853 free(*result);
854 ERROR1:
855 psiconv_error(config,lev+1,off,"Reading of Sheet File failed");
856 if (res == 0)
857 return -PSICONV_E_NOMEM;
858 else
859 return res;
860 }

frodo@frodo.looijaard.name
ViewVC Help
Powered by ViewVC 1.1.26