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

Annotation of /psiconv/trunk/lib/psiconv/parse_common.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 162 - (hide annotations)
Fri Nov 21 15:39:14 2003 UTC (20 years, 4 months ago) by frodo
File MIME type: text/plain
File size: 42832 byte(s)
(Frodo) Parsing of embedded objects in Word complete

1 frodo 2 /*
2     parse_common.c - Part of psiconv, a PSION 5 file formats converter
3 frodo 63 Copyright (c) 1999, 2000 Frodo Looijaard <frodol@dds.nl>
4 frodo 2
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 frodo 20 #include "compat.h"
22 frodo 2 #include <stdlib.h>
23     #include <string.h>
24    
25     #include "parse_routines.h"
26 frodo 71 #include "error.h"
27 frodo 2
28 frodo 142 #ifdef DMALLOC
29     #include <dmalloc.h>
30     #endif
31    
32    
33 frodo 2 static int psiconv_parse_layout_section(const psiconv_buffer buf,
34     int lev,psiconv_u32 off,
35     int *length,
36     psiconv_text_and_layout result,
37     psiconv_word_styles_section styles,
38     int with_styles);
39 frodo 162 static psiconv_file_type_t psiconv_determine_embedded_object_type
40     (const psiconv_buffer buf,int lev,
41     int *status);
42 frodo 2
43     int psiconv_parse_header_section(const psiconv_buffer buf,int lev,
44     psiconv_u32 off, int *length,
45     psiconv_header_section *result)
46     {
47     int res=0;
48     int len=0;
49     psiconv_u32 temp;
50    
51     psiconv_progress(lev+1,off+len,"Going to read the header section");
52 frodo 64 if (!((*result) = malloc(sizeof(**result))))
53     goto ERROR1;
54 frodo 2
55     psiconv_progress(lev+2,off+len,"Going to read UID1 to UID3");
56 frodo 64 (*result)->uid1 = psiconv_read_u32(buf,lev+2,off+len,&res);
57 frodo 65 if (res)
58 frodo 64 goto ERROR2;
59 frodo 2 psiconv_debug(lev+2,off+len,"UID1: %08x",(*result)->uid1);
60 frodo 41 if ((*result)->uid1 == PSICONV_ID_CLIPART) {
61     /* That's all folks... */
62     (*result)->file = psiconv_clipart_file;
63     (*result)->uid2 = 0;
64     (*result)->uid3 = 0;
65     (*result)->checksum = 0;
66     len += 4;
67 frodo 43 psiconv_debug(lev+2,off+len,"File is a Clipart file");
68 frodo 41 goto DONE;
69     }
70 frodo 2 if ((*result)->uid1 != PSICONV_ID_PSION5) {
71     psiconv_warn(lev+2,off+len,"UID1 has unknown value. This is probably "
72     "not a (parsable) Psion 5 file");
73 frodo 64 res = -PSICONV_E_PARSE;
74     goto ERROR2;
75 frodo 2 }
76     len += 4;
77 frodo 64 (*result)->uid2 = psiconv_read_u32(buf,lev+2,off+len,&res);
78     if (res)
79     goto ERROR2;
80 frodo 2 psiconv_debug(lev+2,off+len,"UID2: %08x",(*result)->uid2);
81     len += 4;
82 frodo 64 (*result)->uid3 = psiconv_read_u32(buf,lev+2,off+len,&res);
83     if (res)
84     goto ERROR2;
85 frodo 2 psiconv_debug(lev+2,off+len,"UID3: %08x",(*result)->uid3);
86     len += 4;
87    
88     (*result)->file = psiconv_unknown_file;
89     if ((*result)->uid1 == PSICONV_ID_PSION5) {
90     if ((*result)->uid2 == PSICONV_ID_DATA_FILE) {
91     if ((*result)->uid3 == PSICONV_ID_WORD) {
92     (*result)->file = psiconv_word_file;
93     psiconv_debug(lev+2,off+len,"File is a Word file");
94     } else if ((*result)->uid3 == PSICONV_ID_TEXTED) {
95     (*result)->file = psiconv_texted_file;
96     psiconv_debug(lev+2,off+len,"File is a TextEd file");
97 frodo 24 } else if ((*result)->uid3 == PSICONV_ID_SKETCH) {
98     (*result)->file = psiconv_sketch_file;
99     psiconv_debug(lev+2,off+len,"File is a Sketch file");
100 frodo 94 } else if ((*result)->uid3 == PSICONV_ID_SHEET) {
101     (*result)->file = psiconv_sheet_file;
102     psiconv_debug(lev+2,off+len,"File is a Sheet file");
103     }
104 frodo 12 } else if ((*result)->uid2 == PSICONV_ID_MBM_FILE) {
105     (*result)->file = psiconv_mbm_file;
106     if ((*result)->uid3 != 0x00)
107     psiconv_warn(lev+2,off+len,"UID3 set in MBM file?!?");
108     psiconv_debug(lev+2,off+len,"File is a MBM file");
109     }
110 frodo 2 }
111     if ((*result)->file == psiconv_unknown_file) {
112     psiconv_warn(lev+2,off+len,"Unknown file type");
113     (*result)->file = psiconv_unknown_file;
114     }
115    
116     psiconv_progress(lev+2,off+len,"Checking UID4");
117 frodo 64 temp = psiconv_read_u32(buf,lev+2,off+len,&res);
118     if (res)
119     goto ERROR2;
120 frodo 2 if (temp == psiconv_checkuid((*result)->uid1,(*result)->uid2,
121     (*result)->uid3))
122     psiconv_debug(lev+2,off+len,"Checksum %08x is correct",temp);
123     else {
124     psiconv_warn(lev+2,off+len,"Checksum failed, file corrupted!");
125     psiconv_debug(lev+2,off+len,"Expected checksum %08x, found %08x",
126     psiconv_checkuid((*result)->uid1,(*result)->uid2,
127     (*result)->uid3),temp);
128 frodo 64 res = -PSICONV_E_PARSE;
129     goto ERROR2;
130 frodo 2 }
131     len += 4;
132 frodo 41
133     DONE:
134 frodo 2 if (length)
135     *length = len;
136    
137     psiconv_progress(lev+1,off+len-1,
138     "End of Header Section (total length: %08x)",len);
139    
140     return res;
141 frodo 64
142     ERROR2:
143     free(*result);
144     ERROR1:
145     psiconv_warn(lev+1,off,"Reading of Header Section failed");
146     if (length)
147     *length = 0;
148     if (res == 0)
149     return -PSICONV_E_NOMEM;
150     else
151     return res;
152 frodo 2 }
153    
154     int psiconv_parse_section_table_section(const psiconv_buffer buf, int lev,
155     psiconv_u32 off, int *length,
156     psiconv_section_table_section *result)
157     {
158     int res=0;
159     int len=0;
160     psiconv_section_table_entry entry;
161    
162     int i;
163     psiconv_u8 nr;
164    
165     psiconv_progress(lev+1,off+len,"Going to read the section table section");
166 frodo 64 if (!(*result = psiconv_list_new(sizeof(*entry))))
167     goto ERROR1;
168 frodo 2
169     psiconv_progress(lev+2,off+len,"Going to read the section table length");
170 frodo 64 nr = psiconv_read_u8(buf,lev+2,off+len,&res);
171     if (res)
172     goto ERROR2;
173 frodo 2 psiconv_debug(lev+2,off+len,"Length: %08x",nr);
174     if (nr & 0x01) {
175     psiconv_warn(lev+2,off+len,
176     "Section table length odd - ignoring last entry");
177     }
178     len ++;
179    
180     psiconv_progress(lev+2,off+len,"Going to read the section table entries");
181     entry = malloc(sizeof(*entry));
182     for (i = 0; i < nr / 2; i++) {
183 frodo 64 entry->id = psiconv_read_u32(buf,lev+2,off + len,&res);
184     if (res)
185     goto ERROR3;
186 frodo 2 psiconv_debug(lev+2,off + len,"Entry %d: ID = %08x",i,entry->id);
187     len += 0x04;
188 frodo 64 entry->offset = psiconv_read_u32(buf,lev+2,off + len,&res);
189     if (res)
190     goto ERROR3;
191 frodo 2 psiconv_debug(lev+2,off +len,"Entry %d: Offset = %08x",i,entry->offset);
192     len += 0x04;
193 frodo 64 if ((res=psiconv_list_add(*result,entry)))
194     goto ERROR3;
195 frodo 2 }
196    
197     free(entry);
198    
199     if (length)
200     *length = len;
201    
202     psiconv_progress(lev+1,off+len-1,"End of section table section "
203 frodo 25 "(total length: %08x)", len);
204 frodo 2
205 frodo 64 return 0;
206     ERROR3:
207     free(entry);
208     ERROR2:
209     psiconv_list_free(*result);
210     ERROR1:
211     psiconv_warn(lev+1,off,"Reading of Section Table Section failed");
212     if (length)
213     *length = 0;
214     if (res == 0)
215     return -PSICONV_E_NOMEM;
216     else
217     return res;
218 frodo 2 }
219    
220     int psiconv_parse_application_id_section(const psiconv_buffer buf, int lev,
221     psiconv_u32 off, int *length,
222     psiconv_application_id_section *result)
223     {
224     int res=0;
225     int len=0;
226     int leng;
227    
228     psiconv_progress(lev+1,off,"Going to read the application id section");
229 frodo 64 if (!(*result = malloc(sizeof(**result))))
230     goto ERROR1;
231 frodo 2
232     psiconv_progress(lev+2,off+len,"Going to read the type identifier");
233 frodo 64 (*result)->id = psiconv_read_u32(buf,lev+2,off+len,&res);
234     if (res)
235     goto ERROR2;
236 frodo 2 psiconv_debug(lev+2,off+len,"Identifier: %08x",(*result)->id);
237     len += 4;
238    
239     psiconv_progress(lev+2,off+len,"Going to read the application id string");
240 frodo 64 (*result)->name = psiconv_read_string(buf,lev+2,off+len,&leng,&res);
241     if (res)
242     goto ERROR2;
243 frodo 2 len += leng;
244    
245     if (length)
246     *length = len;
247    
248     psiconv_progress(lev+1,off+len-1,"End of application id section "
249     "(total length: %08x", len);
250    
251     return res;
252 frodo 64 ERROR2:
253     free(*result);
254     ERROR1:
255     psiconv_warn(lev+1,off,"Reading of Application ID Section failed");
256     if (length)
257     *length = 0;
258     if (res == 0)
259     return -PSICONV_E_NOMEM;
260     else
261     return res;
262 frodo 2 }
263    
264     int psiconv_parse_text_section(const psiconv_buffer buf,int lev,psiconv_u32 off,
265     int *length,psiconv_text_and_layout *result)
266     {
267    
268     int res = 0;
269     int len=0;
270    
271     psiconv_u32 text_len;
272     psiconv_paragraph para;
273    
274     int nr;
275 frodo 64 int i,j,start,leng,temp;
276 frodo 2 char *str_copy;
277    
278     psiconv_progress(lev+1,off,"Going to parse the text section");
279     psiconv_progress(lev+2,off,"Reading the text length");
280 frodo 64
281     if(!(*result = psiconv_list_new(sizeof(*para))))
282     goto ERROR1;
283     if (!(para = malloc(sizeof(*para))))
284     goto ERROR2;
285    
286     text_len = psiconv_read_X(buf,lev+2,off,&leng,&res);
287 frodo 65 if (res)
288 frodo 64 goto ERROR3;
289 frodo 2 psiconv_debug(lev+2,off,"Length: %08x",text_len);
290     len += leng;
291    
292     psiconv_progress(lev+2,off+len,"Going to read all paragraph text");
293     nr = 0;
294     start = 0;
295 frodo 64 for (i = 0; i < text_len; i++) {
296     temp = psiconv_read_u8(buf,lev+2,off+len+i,&res);
297     if (res)
298     goto ERROR3;
299     if (temp == 0x06) {
300     if (!(para->text = malloc(i - start + 1)))
301     goto ERROR3;
302     for (j = 0; j < i - start; j++) {
303     temp = psiconv_read_u8(buf,lev+1,off + len + start + j,&res);
304     if (res)
305     goto ERROR4;
306     para->text[j] = temp;
307     }
308 frodo 2 para->text[j] = 0;
309    
310 frodo 64 if ((res = psiconv_list_add(*result,para)))
311     goto ERROR4;
312 frodo 2
313 frodo 64 if (!(str_copy = psiconv_make_printable(para->text)))
314     goto ERROR3;
315 frodo 2 psiconv_debug(lev+2,off+i+len,"Line %d: %d characters",nr,
316     strlen(str_copy) +1);
317     psiconv_debug(lev+2,off+i+len,"Line %d: `%s'",nr,str_copy);
318     free(str_copy);
319    
320     start = i + 1;
321     nr ++;
322     }
323 frodo 64 }
324 frodo 2
325     if (start != text_len) {
326     psiconv_warn(lev+2,off+start+len,
327     "Last line does not end on EOL (%d characters left)", len - start);
328 frodo 64 if (!(para->text = malloc(text_len - start + 1)))
329     goto ERROR3;
330     for (j = 0; j < text_len - start; j++) {
331     temp = psiconv_read_u8(buf,lev+2,off + start + j + len, &res);
332     if (res)
333     goto ERROR4;
334     para->text[j] = temp;
335     }
336 frodo 2 para->text[text_len - start] = 0;
337 frodo 64 if ((res = psiconv_list_add(*result,para)))
338     goto ERROR4;
339     if (!(str_copy = psiconv_make_printable(para->text)))
340     goto ERROR3;
341 frodo 2 psiconv_debug(lev+2,off+start+len,"Last line: %d characters",nr,
342     strlen(str_copy)+1);
343     psiconv_debug(lev+2,off+start+len,"Last line: `%s'",str_copy);
344     free(str_copy);
345     }
346    
347     free(para);
348    
349     /* Initialize the remaining parts of each paragraph */
350     for (i = 0; i < psiconv_list_length(*result); i ++) {
351 frodo 64 if (!(para = psiconv_list_get(*result,i))) {
352     psiconv_warn(lev+2,off+len,"Massive memory corruption");
353     goto ERROR2_0;
354     }
355     if (!(para->in_lines = psiconv_list_new(sizeof(
356     struct psiconv_in_line_layout_s))))
357     goto ERROR2_0;
358     if (!(para->replacements = psiconv_list_new(sizeof(
359     struct psiconv_replacement_s))))
360     goto ERROR2_1;
361     if (!(para->base_character = psiconv_basic_character_layout()))
362     goto ERROR2_2;
363     if (!(para->base_paragraph = psiconv_basic_paragraph_layout()))
364     goto ERROR2_3;
365 frodo 2 para->base_style = 0;
366     }
367    
368    
369     len += text_len;
370    
371     if (length)
372     *length = len;
373    
374     psiconv_progress(lev+1,off+len-1,"End of text section (total length: %08x",
375     len);
376    
377     return res;
378 frodo 64
379     ERROR2_3:
380     psiconv_free_character_layout(para->base_character);
381     ERROR2_2:
382     psiconv_list_free(para->replacements);
383     ERROR2_1:
384     psiconv_list_free(para->in_lines);
385     ERROR2_0:
386     for (j = 0; j < i; j++) {
387     if (!(para = psiconv_list_get(*result,j))) {
388     psiconv_warn(lev+1,off,"Massive memory corruption...");
389     break;
390     }
391     psiconv_list_free(para->in_lines);
392     psiconv_list_free(para->replacements);
393     psiconv_free_character_layout(para->base_character);
394     psiconv_free_paragraph_layout(para->base_paragraph);
395     }
396     goto ERROR2;
397    
398     ERROR4:
399     free(para->text);
400     ERROR3:
401     free(para);
402     ERROR2:
403     for (i = 0; i < psiconv_list_length(*result);i++) {
404     if (!(para = psiconv_list_get(*result,i))) {
405     psiconv_warn(lev+1,off,"Massive memory corruption...");
406     break;
407     }
408     free(para->text);
409     }
410     psiconv_list_free(*result);
411     ERROR1:
412     psiconv_warn(lev+1,off,"Reading of Text Section failed");
413     if (length)
414     *length = 0;
415     if (!res)
416     return -PSICONV_E_NOMEM;
417     else
418     return res;
419 frodo 2 }
420    
421     /* First do a parse_text_section, or you will get into trouble here */
422     int psiconv_parse_layout_section(const psiconv_buffer buf,
423     int lev,psiconv_u32 off,
424     int *length,
425     psiconv_text_and_layout result,
426     psiconv_word_styles_section styles,
427     int with_styles)
428     {
429     int res = 0;
430     int len = 0;
431     psiconv_u32 temp;
432     int parse_styles,nr,i,j,total,leng,line_length;
433    
434 frodo 56 typedef struct anon_style_s
435 frodo 2 {
436     int nr;
437     psiconv_s16 base_style;
438     psiconv_character_layout character;
439     psiconv_paragraph_layout paragraph;
440     } *anon_style;
441    
442     typedef psiconv_list anon_style_list; /* of struct anon_style */
443    
444     anon_style_list anon_styles;
445 frodo 56 struct anon_style_s anon;
446 frodo 2 anon_style anon_ptr=NULL;
447    
448 frodo 64 psiconv_character_layout temp_char;
449     psiconv_paragraph_layout temp_para;
450     psiconv_word_style temp_style;
451 frodo 2 psiconv_paragraph para;
452 frodo 56 struct psiconv_in_line_layout_s in_line;
453 frodo 2
454     int *inline_count;
455    
456    
457     psiconv_progress(lev+1,off,"Going to read the layout section");
458    
459     psiconv_progress(lev+2,off,"Going to read the section type");
460 frodo 64 temp = psiconv_read_u16(buf,lev+2,off+len,&res);
461     if (res)
462     goto ERROR1;
463 frodo 2 psiconv_debug(lev+2,off+len,"Type: %02x",temp);
464     parse_styles = with_styles;
465     if ((temp == 0x0001) && !with_styles) {
466     psiconv_warn(lev+2,off+len,"Styleless layout section expected, "
467     "but styled section found!");
468     parse_styles = 1;
469     } else if ((temp == 0x0000) && (with_styles)) {
470     psiconv_warn(lev+2,off+len,"Styled layout section expected, "
471     "but styleless section found!");
472     parse_styles = 0;
473     } else if ((temp != 0x0000) && (temp != 0x0001)) {
474     psiconv_warn(lev+2,off+len,
475     "Layout section type indicator has unknown value!");
476     }
477     len += 0x02;
478    
479     psiconv_progress(lev+2,off+len,"Going to read paragraph type list");
480 frodo 64 if (!(anon_styles = psiconv_list_new(sizeof(anon))))
481     goto ERROR1;
482 frodo 2 psiconv_progress(lev+3,off+len,"Going to read paragraph type list length");
483 frodo 64 nr = psiconv_read_u8(buf,lev+3,off+len,&res);
484     if (res)
485     goto ERROR2;
486 frodo 2 psiconv_debug(lev+3,off+len,"Length: %02x",nr);
487     len ++;
488    
489     psiconv_progress(lev+3,off+len,
490     "Going to read the paragraph type list elements");
491     for (i = 0; i < nr; i ++) {
492     psiconv_progress(lev+3,off+len,"Element %d",i);
493 frodo 64 anon.nr = psiconv_read_u32(buf,lev+4,off+len,&res);
494     if (res)
495     goto ERROR3;
496 frodo 2 psiconv_debug(lev+4,off+len,"Number: %08x",anon.nr);
497     len += 0x04;
498    
499     psiconv_progress(lev+4,off,"Going to determine the base style");
500     if (parse_styles) {
501 frodo 64 temp = psiconv_read_u32(buf,lev+4, off+len,&res);
502     if (res)
503     goto ERROR3;
504     anon.base_style = psiconv_read_u8(buf,lev+3, off+len+4+temp,&res);
505     if (res)
506     goto ERROR3;
507     psiconv_debug(lev+4,off+len+temp,
508 frodo 2 "Style indicator: %02x",anon.base_style);
509     } else
510     anon.base_style = 0;
511 frodo 64 if (!(temp_style = psiconv_get_style(styles,anon.base_style))) {
512     psiconv_warn(lev+4,off,"Unknown Style referenced");
513     if (!(temp_style = psiconv_get_style(styles,anon.base_style))) {
514     psiconv_warn(lev+4,off,"Base style unknown");
515     goto ERROR3;
516     }
517     }
518     if (!(anon.paragraph = psiconv_clone_paragraph_layout
519     (temp_style->paragraph)))
520     goto ERROR3;
521     if (!(anon.character = psiconv_clone_character_layout
522     (temp_style->character)))
523     goto ERROR3_1;
524 frodo 2
525     psiconv_progress(lev+4,off+len,"Going to read the paragraph layout");
526 frodo 64 if ((res = psiconv_parse_paragraph_layout_list(buf,lev+4,off+len,&leng,
527     anon.paragraph)))
528     goto ERROR3_2;
529 frodo 2 len += leng;
530     if (parse_styles)
531     len ++;
532    
533     psiconv_progress(lev+4,off+len,"Going to read the character layout");
534 frodo 64 if ((res = psiconv_parse_character_layout_list(buf,lev+4,off+len,&leng,
535     anon.character)))
536     goto ERROR3_2;
537 frodo 2 len += leng;
538 frodo 64 if ((res = psiconv_list_add(anon_styles,&anon)))
539     goto ERROR3_2;
540 frodo 2 }
541    
542     psiconv_progress(lev+2,off+len,"Going to parse the paragraph element list");
543     psiconv_progress(lev+3,off+len,"Going to read the number of paragraphs");
544 frodo 64 nr = psiconv_read_u32(buf,lev+3,off+len,&res);
545     if (res)
546     goto ERROR3;
547 frodo 2 if (nr != psiconv_list_length(result)) {
548     psiconv_warn(lev+3,off+len,
549     "Number of text paragraphs and paragraph elements does not match");
550     psiconv_debug(lev+3,off+len,
551     "%d text paragraphs, %d paragraph elements",
552     psiconv_list_length(result),nr);
553     }
554     psiconv_debug(lev+3,off+len,"Number of paragraphs: %d",nr);
555     len += 4;
556 frodo 64 if (!(inline_count = malloc(nr * sizeof(*inline_count))))
557     goto ERROR3;
558 frodo 2
559     psiconv_progress(lev+3,off+len,"Going to read the paragraph elements");
560     for (i = 0; i < nr; i ++) {
561     psiconv_progress(lev+3,off+len,"Element %d",i);
562     if (i >= psiconv_list_length(result)) {
563     psiconv_debug(lev+4,off+len,"Going to allocate a new element");
564 frodo 64 if (!(para = malloc(sizeof(*para))))
565     goto ERROR4;
566     if (!(para->in_lines = psiconv_list_new(sizeof(
567     struct psiconv_in_line_layout_s))))
568     goto ERROR4_1;
569 frodo 2 para->base_style = 0;
570 frodo 64 if (!(para->base_character = psiconv_basic_character_layout()))
571     goto ERROR4_2;
572     if (!(para->base_paragraph = psiconv_basic_paragraph_layout()))
573     goto ERROR4_3;
574     if ((res = psiconv_list_add(result,para)))
575     goto ERROR4_4;
576 frodo 2 free(para);
577     }
578 frodo 64 if (!(para = psiconv_list_get(result,i)))
579     goto ERROR4;
580 frodo 2
581     psiconv_progress(lev+4,off+len,"Going to read the paragraph length");
582 frodo 64 temp = psiconv_read_u32(buf,lev+4,off+len,&res);
583 frodo 65 if (res)
584 frodo 64 goto ERROR4;
585 frodo 2 if (temp != strlen(para->text)+1) {
586     psiconv_warn(lev+4,off+len,
587     "Disagreement of the length of paragraph in layout section");
588     psiconv_debug(lev+4,off+len,
589     "Paragraph length: layout section says %d, counted %d",
590     temp,strlen(para->text)+1);
591     } else
592     psiconv_debug(lev+4,off+len,"Paragraph length: %d",temp);
593     len += 4;
594    
595     psiconv_progress(lev+4,off+len,"Going to read the paragraph type");
596 frodo 64 temp = psiconv_read_u8(buf,lev+4,off+len,&res);
597 frodo 65 if (res)
598 frodo 64 goto ERROR4;
599 frodo 2 if (temp != 0x00) {
600     psiconv_debug(lev+4,off+len,"Type: %02x",temp);
601     for (j = 0; j < psiconv_list_length(anon_styles); j++) {
602 frodo 64 if (!(anon_ptr = psiconv_list_get(anon_styles,j))) {
603     psiconv_warn(lev+4,off+len,"Massive memory curruption");
604     goto ERROR4;
605     }
606 frodo 2 if (temp == anon_ptr->nr)
607     break;
608     }
609     if (j == psiconv_list_length(anon_styles)) {
610     psiconv_warn(lev+4,off+len,"Layout section paragraph type unknown");
611     psiconv_debug(lev+4,off+len,"Unknown type - using base styles instead");
612     para->base_style = 0;
613 frodo 64 if (!(temp_style = psiconv_get_style(styles,0))) {
614     psiconv_warn(lev+4,off,"Base style unknown");
615     goto ERROR4;
616     }
617     if (!(temp_para = psiconv_clone_paragraph_layout
618     (temp_style->paragraph)))
619     goto ERROR4;
620 frodo 2 psiconv_free_paragraph_layout(para->base_paragraph);
621 frodo 64 para->base_paragraph = temp_para;
622    
623     if (!(temp_char = psiconv_clone_character_layout
624     (temp_style->character)))
625     goto ERROR4;
626 frodo 2 psiconv_free_character_layout(para->base_character);
627 frodo 64 para->base_character = temp_char;
628 frodo 2 } else {
629     para->base_style = anon_ptr->base_style;
630 frodo 64 if (!(temp_para = psiconv_clone_paragraph_layout (anon_ptr->paragraph)))
631     goto ERROR4;
632 frodo 2 psiconv_free_paragraph_layout(para->base_paragraph);
633 frodo 64 para->base_paragraph = temp_para;
634    
635     if (!(temp_char = psiconv_clone_character_layout (anon_ptr->character)))
636     goto ERROR4;
637 frodo 2 psiconv_free_character_layout(para->base_character);
638 frodo 64 para->base_character = temp_char;
639 frodo 2 }
640     inline_count[i] = 0;
641     len += 0x01;
642     } else {
643     psiconv_debug(lev+4,off+len,"Type: %02x (not based on a paragraph type)"
644     ,temp);
645     len += 0x01;
646     if (parse_styles) {
647 frodo 64 temp = psiconv_read_u32(buf,lev+4,off+len,&res);
648     if (res)
649     goto ERROR4;
650     psiconv_progress(lev+4,off+len+temp+4,
651 frodo 2 "Going to read the paragraph element base style");
652 frodo 64 temp = psiconv_read_u8(buf,lev+4, off+len+temp+4,&res);
653     if (res)
654     goto ERROR4;
655     psiconv_debug(lev+4,off+len+temp+4, "Style: %02x",temp);
656 frodo 2 } else
657     temp = 0x00;
658 frodo 64
659     if (!(temp_style = psiconv_get_style (styles,temp))) {
660     psiconv_warn(lev+4,off,"Unknown Style referenced");
661     if (!(temp_style = psiconv_get_style(styles,0))) {
662     psiconv_warn(lev+4,off,"Base style unknown");
663     goto ERROR4;
664     }
665     }
666    
667     if (!(temp_para = psiconv_clone_paragraph_layout(temp_style->paragraph)))
668     goto ERROR4;
669 frodo 2 psiconv_free_paragraph_layout(para->base_paragraph);
670 frodo 64 para->base_paragraph = temp_para;
671    
672     if (!(temp_char = psiconv_clone_character_layout(temp_style->character)))
673     goto ERROR4;
674 frodo 2 psiconv_free_character_layout(para->base_character);
675 frodo 64 para->base_character = temp_char;
676    
677 frodo 2 para->base_style = temp;
678     psiconv_progress(lev+4,off+len,"Going to read paragraph layout");
679 frodo 65 if ((res = psiconv_parse_paragraph_layout_list(buf,lev+4,off+len,&leng,
680 frodo 64 para->base_paragraph)))
681     goto ERROR4;
682 frodo 2 len += leng;
683     if (parse_styles)
684     len += 1;
685     psiconv_progress(lev+4,off+len,"Going to read number of in-line "
686     "layout elements");
687 frodo 64 inline_count[i] = psiconv_read_u32(buf,lev+4,off+len,&res);
688     if (res)
689     goto ERROR4;
690 frodo 2 psiconv_debug(lev+4,off+len,"Nr: %08x",inline_count[i]);
691     len += 4;
692     }
693     }
694    
695     psiconv_progress(lev+2,off+len,"Going to read the text layout inline list");
696    
697     psiconv_progress(lev+3,off+len,"Going to read the number of elements");
698 frodo 64 nr = psiconv_read_u32(buf,lev+3,off+len,&res);
699     if (res)
700     goto ERROR4;
701 frodo 65 psiconv_debug(lev+3,off+len,"Elements: %08x",nr);
702 frodo 2 len += 0x04;
703    
704     psiconv_progress(lev+3,off+len,
705     "Going to read the text layout inline elements");
706     total = 0;
707     for (i = 0; i < psiconv_list_length(result); i++) {
708 frodo 64 if (!(para = psiconv_list_get(result,i))) {
709     psiconv_warn(lev+3,off+len,"Massive memory corruption");
710     goto ERROR4;
711     }
712 frodo 2 line_length = -1;
713     for (j = 0; j < inline_count[i]; j++) {
714     psiconv_progress(lev+3,off+len,"Element %d: Paragraph %d, element %d",
715     total,i,j);
716     if (total >= nr) {
717     psiconv_warn(lev+3,off+len,
718     "Layout section inlines: not enough element");
719     psiconv_debug(lev+3,off+len,"Can't read element!");
720     } else {
721     total ++;
722 frodo 159 in_line.object = NULL;
723 frodo 160 in_line.layout = NULL;
724 frodo 64 if (!(in_line.layout = psiconv_clone_character_layout
725     (para->base_character)))
726     goto ERROR4;
727 frodo 2 psiconv_progress(lev+4,off+len,"Going to read the element type");
728 frodo 64 temp = psiconv_read_u8(buf,lev+4,len+off,&res);
729     if (res)
730 frodo 160 goto ERROR5;
731 frodo 2 len += 1;
732 frodo 70 psiconv_debug(lev+4,off+len,"Type: %02x",temp);
733     psiconv_progress(lev+4,off+len,
734 frodo 64 "Going to read the number of characters it applies to");
735     in_line.length = psiconv_read_u32(buf,lev+4,len+off,&res);
736     if (res)
737 frodo 160 goto ERROR5;
738 frodo 2 psiconv_debug(lev+4,off+len,"Length: %02x",in_line.length);
739     len += 4;
740     psiconv_progress(lev+4,off+len,"Going to read the character layout");
741 frodo 64 if ((res = psiconv_parse_character_layout_list(buf,lev+4,off+len,&leng,
742     in_line.layout)))
743 frodo 160 goto ERROR5;
744 frodo 2 len += leng;
745    
746     if (temp == 0x01) {
747 frodo 160 psiconv_debug(lev+4,off+len,"Found an embedded object");
748     psiconv_progress(lev+4,off+len,"Going to read the object marker "
749     "(0x%08x expected)",PSICONV_ID_OBJECT);
750     temp = psiconv_read_u32(buf,lev+4,off+len,&res);
751     if (res)
752     goto ERROR5;
753     if (temp != PSICONV_ID_OBJECT) {
754     psiconv_warn(lev+4,off+len,"Unknown id marks embedded object");
755     psiconv_debug(lev+4,off+len,"Marker: read %08x, expected %08x",
756     temp,PSICONV_ID_OBJECT);
757     }
758     len += 4;
759     psiconv_progress(lev+4,off+len,
760     "Going to read the Embedded Object Section offset");
761     temp = psiconv_read_u32(buf,lev+4,off+len,&res);
762     if (res)
763     goto ERROR5;
764     psiconv_debug(lev+4,off+len, "Offset: %08x",temp);
765     len += 4;
766     psiconv_progress(lev+4,off+len,
767     "Going to parse the Embedded Object");
768     if ((res = psiconv_parse_embedded_object(buf,lev+4,temp,
769     NULL,&(in_line.object))))
770     goto ERROR5;
771     psiconv_progress(lev+4,off+len,
772     "Going to read the object width");
773     in_line.object_width = psiconv_read_length(buf,lev+4,off+len,
774     &leng,&res);
775     if (res)
776     goto ERROR5;
777     psiconv_debug(lev+4,off+len,"Object width: %f cm",
778     in_line.object_width);
779     len += leng;
780     psiconv_progress(lev+4,off+len,
781     "Going to read the object height");
782     in_line.object_height = psiconv_read_length(buf,lev+4,off+len,&leng,
783     &res);
784     if (res)
785     goto ERROR5;
786     psiconv_debug(lev+4,off+len,"Object height: %f cm",
787     in_line.object_height);
788     len += leng;
789 frodo 2 } else if (temp != 0x00) {
790     psiconv_warn(lev+4,off+len,"Layout section unknown inline type");
791     }
792     if (line_length + in_line.length > strlen(para->text)) {
793     psiconv_warn(lev+4,off+len,
794     "Layout section inlines: line length mismatch");
795     res = -1;
796     in_line.length = strlen(para->text) - line_length;
797     }
798     line_length += in_line.length;
799 frodo 64 if ((res = psiconv_list_add(para->in_lines,&in_line)))
800 frodo 160 goto ERROR5;
801 frodo 2 }
802     }
803     }
804    
805     if (total != nr) {
806     psiconv_warn(lev+4,off+len,
807     "Layout section too many inlines, skipping remaining");
808     }
809    
810     free(inline_count);
811    
812     for (i = 0 ; i < psiconv_list_length(anon_styles); i ++) {
813 frodo 64 if (!(anon_ptr = psiconv_list_get(anon_styles,i))) {
814     psiconv_warn(lev+4,off+len,"Massive memory corruption");
815     goto ERROR2;
816     }
817 frodo 2 psiconv_free_character_layout(anon_ptr->character);
818     psiconv_free_paragraph_layout(anon_ptr->paragraph);
819     }
820     psiconv_list_free(anon_styles);
821    
822     if (length)
823     *length = len;
824    
825 frodo 70 psiconv_progress(lev+1,off+len-1,"End of layout section (total length: %08x)",
826 frodo 2 len);
827    
828 frodo 64 return 0;
829    
830     ERROR4_4:
831     psiconv_free_paragraph_layout(para->base_paragraph);
832     ERROR4_3:
833     psiconv_free_character_layout(para->base_character);
834     ERROR4_2:
835     psiconv_list_free(para->in_lines);
836     ERROR4_1:
837     free(para);
838     goto ERROR4;
839    
840     ERROR3_2:
841     psiconv_free_character_layout(anon.character);
842     ERROR3_1:
843     psiconv_free_paragraph_layout(anon.paragraph);
844     goto ERROR3;
845    
846 frodo 160 ERROR5:
847     if (in_line.layout)
848     psiconv_free_character_layout(in_line.layout);
849     if (in_line.object)
850     psiconv_free_object(in_line.object);
851 frodo 64 ERROR4:
852     free(inline_count);
853     ERROR3:
854     for (i = 0; i < psiconv_list_length(anon_styles); i++) {
855     if (!(anon_ptr = psiconv_list_get(anon_styles,i))) {
856     psiconv_warn(lev+1,off,"Massive memory corruption");
857     break;
858     }
859     psiconv_free_paragraph_layout(anon_ptr->paragraph);
860     psiconv_free_character_layout(anon_ptr->character);
861     }
862    
863     ERROR2:
864     psiconv_list_free(anon_styles);
865     ERROR1:
866     psiconv_warn(lev+1,off,"Reading of Layout Section failed");
867     if (length)
868     *length = 0;
869     if (!res)
870     return -PSICONV_E_NOMEM;
871     else
872     return res;
873 frodo 2 }
874    
875     int psiconv_parse_styled_layout_section(const psiconv_buffer buf,
876     int lev,psiconv_u32 off,
877     int *length,
878     psiconv_text_and_layout result,
879     psiconv_word_styles_section styles)
880     {
881     return psiconv_parse_layout_section(buf,lev,off,length,result,styles,1);
882     }
883    
884     int psiconv_parse_styleless_layout_section(const psiconv_buffer buf,
885 frodo 79 int lev,psiconv_u32 off,
886     int *length,
887     psiconv_text_and_layout result,
888     const psiconv_character_layout base_char,
889     const psiconv_paragraph_layout base_para)
890 frodo 2 {
891 frodo 64 int res = 0;
892 frodo 2 psiconv_word_styles_section styles_section;
893    
894 frodo 64 if (!(styles_section = malloc(sizeof(*styles_section))))
895     goto ERROR1;
896     if (!(styles_section->normal = malloc(sizeof(*styles_section->normal))))
897     goto ERROR2;
898     if (!(styles_section->normal->character =
899     psiconv_clone_character_layout(base_char)))
900     goto ERROR3;
901     if (!(styles_section->normal->paragraph =
902     psiconv_clone_paragraph_layout(base_para)))
903     goto ERROR4;
904 frodo 2 styles_section->normal->hotkey = 0;
905 frodo 64 if (!(styles_section->normal->name = strdup("")))
906     goto ERROR5;
907     if (!(styles_section->styles = psiconv_list_new(sizeof(
908     struct psiconv_word_style_s))))
909     goto ERROR6;
910 frodo 2
911     res = psiconv_parse_layout_section(buf,lev,off,length,result,
912     styles_section,0);
913    
914     psiconv_free_word_styles_section(styles_section);
915     return res;
916 frodo 64
917     ERROR6:
918     free(styles_section->normal->name);
919     ERROR5:
920     psiconv_free_paragraph_layout(styles_section->normal->paragraph);
921     ERROR4:
922     psiconv_free_character_layout(styles_section->normal->character);
923     ERROR3:
924     free(styles_section->normal);
925     ERROR2:
926     free(styles_section);
927     ERROR1:
928     psiconv_warn(lev+1,off,"Reading of Styleless Layout Section failed");
929     if (length)
930     *length = 0;
931     if (!res)
932     return -PSICONV_E_NOMEM;
933     else
934     return res;
935 frodo 2 }
936    
937 frodo 160 int psiconv_parse_embedded_object(const psiconv_buffer buf, int lev,
938     psiconv_u32 off, int *length,
939     psiconv_object *result)
940     {
941     int res=0;
942     int len=0;
943     int leng,i;
944     psiconv_section_table_section table;
945     psiconv_section_table_entry entry;
946 frodo 161 psiconv_u32 icon_sec=0,display_sec=0,table_sec=0;
947 frodo 162 psiconv_buffer subbuf;
948 frodo 160
949     psiconv_progress(lev+1,off+len,"Going to read an Embedded Object");
950     if (!(*result = malloc(sizeof(**result))))
951     goto ERROR1;
952    
953     psiconv_progress(lev+2,off+len,"Going to read the Embedded Object Section");
954     psiconv_parse_section_table_section(buf,lev+2,off+len,&leng,&table);
955     len += leng;
956    
957     for (i = 0; i < psiconv_list_length(table); i++) {
958     psiconv_progress(lev+2,off+len,"Going to read entry %d",i);
959     if (!(entry = psiconv_list_get(table,i)))
960     goto ERROR2;
961     if (entry->id == PSICONV_ID_OBJECT_DISPLAY_SECTION) {
962     display_sec = entry->offset;
963     psiconv_debug(lev+3,off+len,"Found the Object Display Section at %08x",
964     display_sec);
965     } else if (entry->id == PSICONV_ID_OBJECT_ICON_SECTION) {
966     icon_sec = entry->offset;
967     psiconv_debug(lev+3,off+len,"Found the Object Icon Section at %08x",
968     icon_sec);
969     } else if (entry->id == PSICONV_ID_OBJECT_SECTION_TABLE_SECTION) {
970     table_sec = entry->offset;
971     psiconv_debug(lev+3,off+len,"Found the Object Section Table Section at %08x",
972     table_sec);
973     } else {
974     psiconv_warn(lev+3,off+len,
975     "Found unknown section in the Object Display Section "
976     "(ignoring)");
977     psiconv_debug(lev+3,off+len,"Section ID %08x, offset %08x",
978     entry->id, entry->offset);
979     }
980     }
981    
982 frodo 161 psiconv_progress(lev+2,off+len,"Looking for the Object Display Section");
983     if (!icon_sec) {
984     psiconv_warn(lev+2,off+len,"Object Display Section not found");
985     (*result)->display = NULL;
986     } else {
987     psiconv_debug(lev+2,off+len,"Object Display Section at offset %08x",
988     display_sec);
989     if ((res = psiconv_parse_object_display_section(buf,lev+2,display_sec,NULL,
990     &(*result)->display)))
991     goto ERROR2;
992     }
993    
994     psiconv_progress(lev+2,off+len,"Looking for the Object Icon Section");
995     if (!icon_sec) {
996     psiconv_warn(lev+2,off+len,"Object Icon Section not found");
997     (*result)->icon = NULL;
998     } else {
999     psiconv_debug(lev+2,off+len,"Object Icon Section at offset %08x",icon_sec);
1000     if ((res = psiconv_parse_object_icon_section(buf,lev+2,icon_sec,NULL,
1001     &(*result)->icon)))
1002 frodo 162 goto ERROR3;
1003 frodo 161 }
1004    
1005 frodo 162 psiconv_progress(lev+2,off+len,
1006     "Looking for the Section Table Offset Section");
1007     if (!table_sec) {
1008     psiconv_warn(lev+2,off+len,
1009     "Embedded Section Table Offset Section not found");
1010     (*result)->object = NULL;
1011     } else {
1012     psiconv_progress(lev+2,off+len,
1013     "Extracting object: add %08x to all following offsets",
1014     table_sec);
1015     /* We can't determine the length of the object, so we just take it all */
1016     if ((res = psiconv_buffer_subbuffer(&subbuf,buf,table_sec,
1017     psiconv_buffer_length(buf)-table_sec)))
1018     goto ERROR4;
1019    
1020     if (!((*result)->object = malloc(sizeof(*(*result)->object))))
1021     goto ERROR5;
1022    
1023     /* We need to find the file type, but we don't have a normal header */
1024     /* So we try to find the Application ID Section and hope for the best */
1025     psiconv_progress(lev+3,0,"Trying to determine the file type");
1026     (*result)->object->type = psiconv_determine_embedded_object_type
1027     (subbuf,lev+3,&res);
1028     switch ((*result)->object->type) {
1029     case psiconv_word_file:
1030     if ((res = psiconv_parse_word_file(subbuf,lev+3,0,
1031     ((psiconv_word_f *) &(*result)->object->file))))
1032     goto ERROR6;
1033     break;
1034     case psiconv_texted_file:
1035     if ((res = psiconv_parse_texted_file(subbuf,lev+3,0,
1036     ((psiconv_texted_f *) &(*result)->object->file))))
1037     goto ERROR6;
1038     break;
1039     case psiconv_sheet_file:
1040     if ((res = psiconv_parse_sheet_file(subbuf,lev+3,0,
1041     ((psiconv_sheet_f *) &(*result)->object->file))))
1042     goto ERROR6;
1043     break;
1044     case psiconv_sketch_file:
1045     if ((res = psiconv_parse_sketch_file(subbuf,lev+3,0,
1046     ((psiconv_sketch_f *) &(*result)->object->file))))
1047     goto ERROR6;
1048     break;
1049     default:
1050     psiconv_warn(lev+3,0,"Can't parse embedded object (still continuing)");
1051     (*result)->object->file = NULL;
1052     }
1053     }
1054    
1055 frodo 161 if (length)
1056     *length = len;
1057    
1058 frodo 160 psiconv_progress(lev+1,off+len-1,"End of Embedded Object Section "
1059     "(total length: %08x)",len);
1060 frodo 161
1061 frodo 160 return res;
1062    
1063 frodo 162
1064     ERROR6:
1065     free((*result)->object);
1066     ERROR5:
1067     psiconv_buffer_free(subbuf);
1068     ERROR4:
1069     psiconv_free_object_icon_section((*result)->icon);
1070     ERROR3:
1071     psiconv_free_object_display_section((*result)->display);
1072 frodo 160 ERROR2:
1073     psiconv_free_section_table_section(table);
1074     ERROR1:
1075     psiconv_warn(lev+1,off,"Reading Embedded Object failed");
1076 frodo 161
1077 frodo 160 if (length)
1078     *length = 0;
1079 frodo 161
1080 frodo 160 if (res == 0)
1081     return -PSICONV_E_NOMEM;
1082     else
1083     return res;
1084     }
1085 frodo 161
1086 frodo 162 psiconv_file_type_t psiconv_determine_embedded_object_type
1087     (const psiconv_buffer buf,int lev,
1088     int *status)
1089     {
1090     psiconv_u32 off;
1091     psiconv_section_table_section table;
1092     int res,i;
1093     psiconv_file_type_t file_type = psiconv_unknown_file;
1094     psiconv_section_table_entry entry;
1095     psiconv_application_id_section applid;
1096    
1097     psiconv_progress(lev+1,0,"Going to determine embedded object file type");
1098     psiconv_progress(lev+2,0,"Going to read the Section Table Offset Section");
1099     off = psiconv_read_u32(buf,lev,0,&res);
1100     if (res)
1101     goto ERROR1;
1102     psiconv_debug(lev+2,0,"Offset: %08x",off);
1103    
1104     psiconv_progress(lev+2,off,"Going to read the Section Table Section");
1105     if ((res = psiconv_parse_section_table_section(buf,lev+2,off,NULL,&table)))
1106     goto ERROR1;
1107    
1108     psiconv_progress(lev+2,off,"Going to search the Section Table Section "
1109     "for the Application ID Section");
1110     for (i=0; i < psiconv_list_length(table); i++) {
1111     psiconv_progress(lev+3,off,"Going to read entry %d",i);
1112     if (!(entry = psiconv_list_get(table,i)))
1113     goto ERROR2;
1114     if (entry->id == PSICONV_ID_APPL_ID_SECTION) {
1115     psiconv_progress(lev+3,off,
1116     "Found the Application ID Section at offset %08x",
1117     entry->offset);
1118     off = entry->offset;
1119     break;
1120     }
1121     }
1122     if (i == psiconv_list_length(table)) {
1123     psiconv_warn(lev+2,off,"No Application ID Section found");
1124     res = PSICONV_E_PARSE;
1125     goto ERROR2;
1126     }
1127    
1128     psiconv_progress(lev+2,off,"Going to read the Application ID Section");
1129     if ((res = psiconv_parse_application_id_section(buf,lev+2,off,NULL,&applid)))
1130     goto ERROR2;
1131    
1132     switch (applid->id) {
1133     case PSICONV_ID_WORD: file_type = psiconv_word_file;
1134     psiconv_debug(lev+2,off,"Found a Word file");
1135     break;
1136     case PSICONV_ID_TEXTED: file_type = psiconv_texted_file;
1137     psiconv_debug(lev+2,off,"Found a TextEd file");
1138     break;
1139     case PSICONV_ID_SKETCH: file_type = psiconv_sketch_file;
1140     psiconv_debug(lev+2,off,"Found a Sketch file");
1141     break;
1142     case PSICONV_ID_SHEET: file_type = psiconv_sheet_file;
1143     psiconv_debug(lev+2,off,"Found a Sheet file");
1144     break;
1145     default: psiconv_warn(lev+2,off,"Found an unknown file type");
1146     psiconv_debug(lev+2,off,"Found ID %08x",applid->id);
1147     }
1148    
1149     ERROR2:
1150     psiconv_free_application_id_section(applid);
1151     ERROR1:
1152     psiconv_free_section_table_section(table);
1153     if (status)
1154     *status = res;
1155     return file_type;
1156    
1157     }
1158    
1159 frodo 161 int psiconv_parse_object_display_section(const psiconv_buffer buf,int lev,
1160     psiconv_u32 off, int *length,
1161     psiconv_object_display_section *result)
1162     {
1163     int res = 0;
1164     int len = 0;
1165     int leng;
1166     psiconv_u32 temp;
1167    
1168     psiconv_progress(lev+1,off,"Going to read the Object Display Section");
1169     if (!(*result = malloc(sizeof(**result))))
1170     goto ERROR1;
1171    
1172     psiconv_progress(lev+2,off+len,"Going to read the display as icon flag "
1173     "(expecting 0x00 or 0x01)");
1174     temp = psiconv_read_u8(buf,lev+2,off+len,&res);
1175     if (res)
1176     goto ERROR2;
1177     if (temp == 0x00) {
1178     (*result)->show_icon = psiconv_bool_true;
1179 frodo 162 psiconv_debug(lev+2,off+len,"Displayed as icon");
1180 frodo 161 } else if (temp == 0x01) {
1181     (*result)->show_icon = psiconv_bool_false;
1182 frodo 162 psiconv_debug(lev+2,off+len,"Displayed as full document");
1183 frodo 161 } else {
1184     psiconv_warn(lev+2,off+len,"Unknown Object Display Section Icon Flag");
1185     psiconv_debug(lev+2,off+len,"Icon flag found: %02x",temp);
1186     /* Improvise */
1187     (*result)->show_icon = (temp & 0x01?psiconv_bool_false:psiconv_bool_true);
1188     }
1189     len ++;
1190    
1191 frodo 162 psiconv_progress(lev+2,off+len,"Going to read the display width");
1192 frodo 161 (*result)->width = psiconv_read_length(buf,lev+2,off+len,&leng,&res);
1193     if (res)
1194     goto ERROR2;
1195 frodo 162 psiconv_debug(lev+2,off+len,"Display width: %f cm",(*result)->width);
1196 frodo 161 len += leng;
1197    
1198 frodo 162 psiconv_progress(lev+2,off+len,"Going to read the display height");
1199 frodo 161 (*result)->height = psiconv_read_length(buf,lev+2,off+len,&leng,&res);
1200     if (res)
1201     goto ERROR2;
1202 frodo 162 psiconv_debug(lev+2,off+len,"Display length: %f cm",(*result)->height);
1203 frodo 161 len += leng;
1204    
1205     psiconv_progress(lev+2,off+len,"Going to read unknown long (%08x expected)",
1206     0);
1207     temp = psiconv_read_u32(buf,lev+2,off+len,&res);
1208     if (temp != 0) {
1209     psiconv_warn(lev+2,off+len,"Unknown Object Display Section final long");
1210     psiconv_debug(lev+2,off+len,"Long read: %08x",temp);
1211     }
1212     len += 4;
1213    
1214     if (length)
1215     *length = len;
1216    
1217 frodo 162 psiconv_progress(lev+1,off+len-1,"End of Object Display Section "
1218 frodo 161 "(total length: %08x",len);
1219     return res;
1220    
1221     ERROR2:
1222     free(*result);
1223     ERROR1:
1224     psiconv_warn(lev+1,off+len,"Reading of Object Display Section failed");
1225     if (length)
1226     *length=0;
1227     if (!res)
1228     return -PSICONV_E_NOMEM;
1229     else
1230     return res;
1231     }
1232    
1233     int psiconv_parse_object_icon_section(const psiconv_buffer buf,int lev,
1234     psiconv_u32 off, int *length,
1235     psiconv_object_icon_section *result)
1236     {
1237     int res = 0;
1238     int len = 0;
1239     int leng;
1240    
1241     psiconv_progress(lev+1,off,"Going to read the Object Icon Section");
1242     if (!(*result = malloc(sizeof(**result))))
1243     goto ERROR1;
1244    
1245     psiconv_progress(lev+2,off+len,"Going to read the icon name");
1246     (*result)->icon_name = psiconv_read_string(buf,lev+2,off+len,&leng,&res);
1247     if (res)
1248     goto ERROR2;
1249     psiconv_debug(lev+2,off+len,"Icon name: %s",(*result)->icon_name);
1250     len += leng;
1251    
1252     psiconv_progress(lev+2,off+len,"Going to read the icon width");
1253     (*result)->icon_width = psiconv_read_length(buf,lev+2,off+len,&leng,&res);
1254     if (res)
1255     goto ERROR3;
1256     psiconv_debug(lev+2,off+len,"Icon width: %f cm",(*result)->icon_width);
1257     len += leng;
1258    
1259     psiconv_progress(lev+2,off+len,"Going to read the icon height");
1260     (*result)->icon_height = psiconv_read_length(buf,lev+2,off+len,&leng,&res);
1261     if (res)
1262     goto ERROR3;
1263     psiconv_debug(lev+2,off+len,"Icon length: %f cm",(*result)->icon_height);
1264     len += leng;
1265    
1266     if (length)
1267     *length = len;
1268    
1269     psiconv_progress(lev+1,off+len-1,"End of Object Icon Section"
1270     "(total length: %08x",len);
1271     return res;
1272    
1273     ERROR3:
1274     free((*result)->icon_name);
1275     ERROR2:
1276     free(*result);
1277     ERROR1:
1278     psiconv_warn(lev+1,off+len,"Reading of Object Icon Section failed");
1279     if (length)
1280     *length=0;
1281     if (!res)
1282     return -PSICONV_E_NOMEM;
1283     else
1284     return res;
1285     }

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