/[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 208 - (hide annotations)
Mon Feb 9 23:12:58 2004 UTC (20 years, 1 month ago) by frodo
File MIME type: text/plain
File size: 45758 byte(s)
(Frodo) Several (smallish) memory leaks resolved

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

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