/[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 244 - (hide annotations)
Mon Mar 22 20:08:09 2004 UTC (20 years, 1 month ago) by frodo
File MIME type: text/plain
File size: 44082 byte(s) 
(Frodo) Fix in color generation algorithm

  * Update version to 0.9.5
  * Update patch level of library
  * For greyscale pictures, white was translated as black. Not good.
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 217 psiconv_ucs2 temp;
281     psiconv_list line;
282     psiconv_ucs2 *nextcharptr;
283 frodo 2
284     int nr;
285 frodo 217 int i,j,leng;
286 frodo 2 char *str_copy;
287    
288 frodo 168 psiconv_progress(config,lev+1,off,"Going to parse the text section");
289 frodo 64
290     if(!(*result = psiconv_list_new(sizeof(*para))))
291     goto ERROR1;
292     if (!(para = malloc(sizeof(*para))))
293     goto ERROR2;
294    
295 frodo 217 psiconv_progress(config,lev+2,off,"Reading the text length");
296 frodo 168 text_len = psiconv_read_X(config,buf,lev+2,off,&leng,&res);
297 frodo 65 if (res)
298 frodo 64 goto ERROR3;
299 frodo 168 psiconv_debug(config,lev+2,off,"Length: %08x",text_len);
300 frodo 2 len += leng;
301    
302 frodo 217 if (!(line = psiconv_list_new(sizeof(psiconv_ucs2))))
303     goto ERROR3;
304    
305     i = 0;
306 frodo 2 nr = 0;
307 frodo 217 while (i < text_len) {
308     temp = psiconv_unicode_read_char(config,buf,lev+2,off+len+i,&leng,&res);
309 frodo 64 if (res)
310 frodo 217 goto ERROR4;
311     if (i + leng > text_len) {
312     psiconv_error(config,lev+2,off+len+i,"Malformed text section");
313     res = PSICONV_E_PARSE;
314     goto ERROR4;
315     }
316     if ((temp == 0x06) || (i + leng == text_len)) {
317 frodo 238 if (!(para->text = psiconv_unicode_from_list(line)))
318 frodo 217 goto ERROR4;
319 frodo 2
320 frodo 184 if (!(str_copy = psiconv_make_printable(config,para->text)))
321 frodo 217 goto ERROR5;
322 frodo 168 psiconv_debug(config,lev+2,off+i+len,"Line %d: %d characters",nr,
323 frodo 2 strlen(str_copy) +1);
324 frodo 168 psiconv_debug(config,lev+2,off+i+len,"Line %d: `%s'",nr,str_copy);
325 frodo 2 free(str_copy);
326 frodo 217 i += leng;
327 frodo 2
328 frodo 217 if (!(para->in_lines = psiconv_list_new(sizeof(
329     struct psiconv_in_line_layout_s))))
330     goto ERROR5;
331     if (!(para->replacements = psiconv_list_new(sizeof(
332     struct psiconv_replacement_s))))
333     goto ERROR6;
334     if (!(para->base_character = psiconv_basic_character_layout()))
335     goto ERROR7;
336     if (!(para->base_paragraph = psiconv_basic_paragraph_layout()))
337     goto ERROR8;
338     para->base_style = 0;
339    
340     if ((res = psiconv_list_add(*result,para)))
341     goto ERROR9;
342     psiconv_progress(config,lev+2,off+len+i,"Starting a new line");
343     psiconv_list_empty(line);
344 frodo 2 nr ++;
345 frodo 217 } else {
346     if ((res = psiconv_list_add(line,&temp)))
347     goto ERROR4;
348     i += leng;
349 frodo 2 }
350 frodo 64 }
351 frodo 217
352     psiconv_list_free(line);
353 frodo 2 free(para);
354    
355     len += text_len;
356    
357     if (length)
358     *length = len;
359    
360 frodo 217 psiconv_progress(config,lev+1,off+len-1,
361     "End of text section (total length: %08x", len);
362 frodo 2
363     return res;
364 frodo 64
365 frodo 217 ERROR9:
366     psiconv_free_paragraph_layout(para->base_paragraph);
367     ERROR8:
368 frodo 64 psiconv_free_character_layout(para->base_character);
369 frodo 217 ERROR7:
370 frodo 64 psiconv_list_free(para->replacements);
371 frodo 217 ERROR6:
372 frodo 64 psiconv_list_free(para->in_lines);
373 frodo 217 ERROR5:
374     free(para->text);
375 frodo 64 ERROR4:
376 frodo 217 psiconv_list_free(line);
377 frodo 64 ERROR3:
378     free(para);
379     ERROR2:
380 frodo 217 psiconv_free_text_and_layout(*result);
381 frodo 64 ERROR1:
382 frodo 184 psiconv_error(config,lev+1,off,"Reading of Text Section failed");
383 frodo 64 if (length)
384     *length = 0;
385     if (!res)
386     return -PSICONV_E_NOMEM;
387     else
388     return res;
389 frodo 2 }
390    
391     /* First do a parse_text_section, or you will get into trouble here */
392 frodo 168 int psiconv_parse_layout_section(const psiconv_config config,
393     const psiconv_buffer buf,
394 frodo 2 int lev,psiconv_u32 off,
395     int *length,
396     psiconv_text_and_layout result,
397     psiconv_word_styles_section styles,
398     int with_styles)
399     {
400     int res = 0;
401     int len = 0;
402     psiconv_u32 temp;
403     int parse_styles,nr,i,j,total,leng,line_length;
404    
405 frodo 56 typedef struct anon_style_s
406 frodo 2 {
407     int nr;
408     psiconv_s16 base_style;
409     psiconv_character_layout character;
410     psiconv_paragraph_layout paragraph;
411     } *anon_style;
412    
413     typedef psiconv_list anon_style_list; /* of struct anon_style */
414    
415     anon_style_list anon_styles;
416 frodo 56 struct anon_style_s anon;
417 frodo 2 anon_style anon_ptr=NULL;
418    
419 frodo 64 psiconv_character_layout temp_char;
420     psiconv_paragraph_layout temp_para;
421     psiconv_word_style temp_style;
422 frodo 2 psiconv_paragraph para;
423 frodo 56 struct psiconv_in_line_layout_s in_line;
424 frodo 2
425     int *inline_count;
426    
427    
428 frodo 168 psiconv_progress(config,lev+1,off,"Going to read the layout section");
429 frodo 2
430 frodo 168 psiconv_progress(config,lev+2,off,"Going to read the section type");
431     temp = psiconv_read_u16(config,buf,lev+2,off+len,&res);
432 frodo 64 if (res)
433     goto ERROR1;
434 frodo 168 psiconv_debug(config,lev+2,off+len,"Type: %02x",temp);
435 frodo 2 parse_styles = with_styles;
436     if ((temp == 0x0001) && !with_styles) {
437 frodo 168 psiconv_warn(config,lev+2,off+len,"Styleless layout section expected, "
438 frodo 2 "but styled section found!");
439     parse_styles = 1;
440     } else if ((temp == 0x0000) && (with_styles)) {
441 frodo 168 psiconv_warn(config,lev+2,off+len,"Styled layout section expected, "
442 frodo 2 "but styleless section found!");
443     parse_styles = 0;
444     } else if ((temp != 0x0000) && (temp != 0x0001)) {
445 frodo 168 psiconv_warn(config,lev+2,off+len,
446 frodo 2 "Layout section type indicator has unknown value!");
447     }
448     len += 0x02;
449    
450 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read paragraph type list");
451 frodo 64 if (!(anon_styles = psiconv_list_new(sizeof(anon))))
452     goto ERROR1;
453 frodo 168 psiconv_progress(config,lev+3,off+len,"Going to read paragraph type list length");
454     nr = psiconv_read_u8(config,buf,lev+3,off+len,&res);
455 frodo 64 if (res)
456     goto ERROR2;
457 frodo 168 psiconv_debug(config,lev+3,off+len,"Length: %02x",nr);
458 frodo 2 len ++;
459    
460 frodo 168 psiconv_progress(config,lev+3,off+len,
461 frodo 2 "Going to read the paragraph type list elements");
462     for (i = 0; i < nr; i ++) {
463 frodo 168 psiconv_progress(config,lev+3,off+len,"Element %d",i);
464     anon.nr = psiconv_read_u32(config,buf,lev+4,off+len,&res);
465 frodo 64 if (res)
466     goto ERROR3;
467 frodo 168 psiconv_debug(config,lev+4,off+len,"Number: %08x",anon.nr);
468 frodo 2 len += 0x04;
469    
470 frodo 168 psiconv_progress(config,lev+4,off,"Going to determine the base style");
471 frodo 2 if (parse_styles) {
472 frodo 168 temp = psiconv_read_u32(config,buf,lev+4, off+len,&res);
473 frodo 64 if (res)
474     goto ERROR3;
475 frodo 168 anon.base_style = psiconv_read_u8(config,buf,lev+3, off+len+4+temp,&res);
476 frodo 64 if (res)
477     goto ERROR3;
478 frodo 168 psiconv_debug(config,lev+4,off+len+temp,
479 frodo 2 "Style indicator: %02x",anon.base_style);
480     } else
481     anon.base_style = 0;
482 frodo 64 if (!(temp_style = psiconv_get_style(styles,anon.base_style))) {
483 frodo 168 psiconv_warn(config,lev+4,off,"Unknown Style referenced");
484 frodo 64 if (!(temp_style = psiconv_get_style(styles,anon.base_style))) {
485 frodo 168 psiconv_warn(config,lev+4,off,"Base style unknown");
486 frodo 64 goto ERROR3;
487     }
488     }
489     if (!(anon.paragraph = psiconv_clone_paragraph_layout
490     (temp_style->paragraph)))
491     goto ERROR3;
492     if (!(anon.character = psiconv_clone_character_layout
493     (temp_style->character)))
494     goto ERROR3_1;
495 frodo 2
496 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read the paragraph layout");
497     if ((res = psiconv_parse_paragraph_layout_list(config,buf,lev+4,off+len,&leng,
498 frodo 64 anon.paragraph)))
499     goto ERROR3_2;
500 frodo 2 len += leng;
501     if (parse_styles)
502     len ++;
503    
504 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read the character layout");
505     if ((res = psiconv_parse_character_layout_list(config,buf,lev+4,off+len,&leng,
506 frodo 64 anon.character)))
507     goto ERROR3_2;
508 frodo 2 len += leng;
509 frodo 64 if ((res = psiconv_list_add(anon_styles,&anon)))
510     goto ERROR3_2;
511 frodo 2 }
512    
513 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to parse the paragraph element list");
514     psiconv_progress(config,lev+3,off+len,"Going to read the number of paragraphs");
515     nr = psiconv_read_u32(config,buf,lev+3,off+len,&res);
516 frodo 64 if (res)
517     goto ERROR3;
518 frodo 2 if (nr != psiconv_list_length(result)) {
519 frodo 168 psiconv_warn(config,lev+3,off+len,
520 frodo 2 "Number of text paragraphs and paragraph elements does not match");
521 frodo 168 psiconv_debug(config,lev+3,off+len,
522 frodo 2 "%d text paragraphs, %d paragraph elements",
523     psiconv_list_length(result),nr);
524     }
525 frodo 168 psiconv_debug(config,lev+3,off+len,"Number of paragraphs: %d",nr);
526 frodo 2 len += 4;
527 frodo 64 if (!(inline_count = malloc(nr * sizeof(*inline_count))))
528     goto ERROR3;
529 frodo 2
530 frodo 168 psiconv_progress(config,lev+3,off+len,"Going to read the paragraph elements");
531 frodo 2 for (i = 0; i < nr; i ++) {
532 frodo 168 psiconv_progress(config,lev+3,off+len,"Element %d",i);
533 frodo 2 if (i >= psiconv_list_length(result)) {
534 frodo 168 psiconv_debug(config,lev+4,off+len,"Going to allocate a new element");
535 frodo 64 if (!(para = malloc(sizeof(*para))))
536     goto ERROR4;
537     if (!(para->in_lines = psiconv_list_new(sizeof(
538     struct psiconv_in_line_layout_s))))
539     goto ERROR4_1;
540 frodo 2 para->base_style = 0;
541 frodo 64 if (!(para->base_character = psiconv_basic_character_layout()))
542     goto ERROR4_2;
543     if (!(para->base_paragraph = psiconv_basic_paragraph_layout()))
544     goto ERROR4_3;
545     if ((res = psiconv_list_add(result,para)))
546     goto ERROR4_4;
547 frodo 2 free(para);
548     }
549 frodo 64 if (!(para = psiconv_list_get(result,i)))
550     goto ERROR4;
551 frodo 2
552 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read the paragraph length");
553     temp = psiconv_read_u32(config,buf,lev+4,off+len,&res);
554 frodo 65 if (res)
555 frodo 64 goto ERROR4;
556 frodo 184 if (temp != psiconv_unicode_strlen(para->text)+1) {
557 frodo 168 psiconv_warn(config,lev+4,off+len,
558 frodo 2 "Disagreement of the length of paragraph in layout section");
559 frodo 168 psiconv_debug(config,lev+4,off+len,
560 frodo 2 "Paragraph length: layout section says %d, counted %d",
561 frodo 184 temp,psiconv_unicode_strlen(para->text)+1);
562 frodo 2 } else
563 frodo 168 psiconv_debug(config,lev+4,off+len,"Paragraph length: %d",temp);
564 frodo 2 len += 4;
565    
566 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read the paragraph type");
567     temp = psiconv_read_u8(config,buf,lev+4,off+len,&res);
568 frodo 65 if (res)
569 frodo 64 goto ERROR4;
570 frodo 2 if (temp != 0x00) {
571 frodo 168 psiconv_debug(config,lev+4,off+len,"Type: %02x",temp);
572 frodo 2 for (j = 0; j < psiconv_list_length(anon_styles); j++) {
573 frodo 64 if (!(anon_ptr = psiconv_list_get(anon_styles,j))) {
574 frodo 233 psiconv_error(config,lev+4,off+len,"Data structure corruption");
575 frodo 64 goto ERROR4;
576     }
577 frodo 2 if (temp == anon_ptr->nr)
578     break;
579     }
580     if (j == psiconv_list_length(anon_styles)) {
581 frodo 168 psiconv_warn(config,lev+4,off+len,"Layout section paragraph type unknown");
582     psiconv_debug(config,lev+4,off+len,"Unknown type - using base styles instead");
583 frodo 2 para->base_style = 0;
584 frodo 64 if (!(temp_style = psiconv_get_style(styles,0))) {
585 frodo 184 psiconv_error(config,lev+4,off,"Base style unknown");
586 frodo 64 goto ERROR4;
587     }
588     if (!(temp_para = psiconv_clone_paragraph_layout
589     (temp_style->paragraph)))
590     goto ERROR4;
591 frodo 2 psiconv_free_paragraph_layout(para->base_paragraph);
592 frodo 64 para->base_paragraph = temp_para;
593    
594     if (!(temp_char = psiconv_clone_character_layout
595     (temp_style->character)))
596     goto ERROR4;
597 frodo 2 psiconv_free_character_layout(para->base_character);
598 frodo 64 para->base_character = temp_char;
599 frodo 2 } else {
600     para->base_style = anon_ptr->base_style;
601 frodo 64 if (!(temp_para = psiconv_clone_paragraph_layout (anon_ptr->paragraph)))
602     goto ERROR4;
603 frodo 2 psiconv_free_paragraph_layout(para->base_paragraph);
604 frodo 64 para->base_paragraph = temp_para;
605    
606     if (!(temp_char = psiconv_clone_character_layout (anon_ptr->character)))
607     goto ERROR4;
608 frodo 2 psiconv_free_character_layout(para->base_character);
609 frodo 64 para->base_character = temp_char;
610 frodo 2 }
611     inline_count[i] = 0;
612     len += 0x01;
613     } else {
614 frodo 168 psiconv_debug(config,lev+4,off+len,"Type: %02x (not based on a paragraph type)"
615 frodo 2 ,temp);
616     len += 0x01;
617     if (parse_styles) {
618 frodo 168 temp = psiconv_read_u32(config,buf,lev+4,off+len,&res);
619 frodo 64 if (res)
620     goto ERROR4;
621 frodo 168 psiconv_progress(config,lev+4,off+len+temp+4,
622 frodo 2 "Going to read the paragraph element base style");
623 frodo 168 temp = psiconv_read_u8(config,buf,lev+4, off+len+temp+4,&res);
624 frodo 64 if (res)
625     goto ERROR4;
626 frodo 168 psiconv_debug(config,lev+4,off+len+temp+4, "Style: %02x",temp);
627 frodo 2 } else
628     temp = 0x00;
629 frodo 64
630     if (!(temp_style = psiconv_get_style (styles,temp))) {
631 frodo 168 psiconv_warn(config,lev+4,off,"Unknown Style referenced");
632 frodo 64 if (!(temp_style = psiconv_get_style(styles,0))) {
633 frodo 184 psiconv_error(config,lev+4,off,"Base style unknown");
634 frodo 64 goto ERROR4;
635     }
636     }
637    
638     if (!(temp_para = psiconv_clone_paragraph_layout(temp_style->paragraph)))
639     goto ERROR4;
640 frodo 2 psiconv_free_paragraph_layout(para->base_paragraph);
641 frodo 64 para->base_paragraph = temp_para;
642    
643     if (!(temp_char = psiconv_clone_character_layout(temp_style->character)))
644     goto ERROR4;
645 frodo 2 psiconv_free_character_layout(para->base_character);
646 frodo 64 para->base_character = temp_char;
647    
648 frodo 2 para->base_style = temp;
649 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read paragraph layout");
650     if ((res = psiconv_parse_paragraph_layout_list(config,buf,lev+4,off+len,&leng,
651 frodo 64 para->base_paragraph)))
652     goto ERROR4;
653 frodo 2 len += leng;
654     if (parse_styles)
655     len += 1;
656 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read number of in-line "
657 frodo 2 "layout elements");
658 frodo 168 inline_count[i] = psiconv_read_u32(config,buf,lev+4,off+len,&res);
659 frodo 64 if (res)
660     goto ERROR4;
661 frodo 168 psiconv_debug(config,lev+4,off+len,"Nr: %08x",inline_count[i]);
662 frodo 2 len += 4;
663     }
664     }
665    
666 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the text layout inline list");
667 frodo 2
668 frodo 168 psiconv_progress(config,lev+3,off+len,"Going to read the number of elements");
669     nr = psiconv_read_u32(config,buf,lev+3,off+len,&res);
670 frodo 64 if (res)
671     goto ERROR4;
672 frodo 168 psiconv_debug(config,lev+3,off+len,"Elements: %08x",nr);
673 frodo 2 len += 0x04;
674    
675 frodo 168 psiconv_progress(config,lev+3,off+len,
676 frodo 2 "Going to read the text layout inline elements");
677     total = 0;
678     for (i = 0; i < psiconv_list_length(result); i++) {
679 frodo 64 if (!(para = psiconv_list_get(result,i))) {
680 frodo 233 psiconv_error(config,lev+3,off+len,"Data structure corruption");
681 frodo 64 goto ERROR4;
682     }
683 frodo 2 line_length = -1;
684     for (j = 0; j < inline_count[i]; j++) {
685 frodo 168 psiconv_progress(config,lev+3,off+len,"Element %d: Paragraph %d, element %d",
686 frodo 2 total,i,j);
687     if (total >= nr) {
688 frodo 168 psiconv_warn(config,lev+3,off+len,
689 frodo 2 "Layout section inlines: not enough element");
690 frodo 168 psiconv_debug(config,lev+3,off+len,"Can't read element!");
691 frodo 2 } else {
692     total ++;
693 frodo 159 in_line.object = NULL;
694 frodo 160 in_line.layout = NULL;
695 frodo 64 if (!(in_line.layout = psiconv_clone_character_layout
696     (para->base_character)))
697     goto ERROR4;
698 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read the element type");
699     temp = psiconv_read_u8(config,buf,lev+4,len+off,&res);
700 frodo 64 if (res)
701 frodo 160 goto ERROR5;
702 frodo 2 len += 1;
703 frodo 168 psiconv_debug(config,lev+4,off+len,"Type: %02x",temp);
704     psiconv_progress(config,lev+4,off+len,
705 frodo 64 "Going to read the number of characters it applies to");
706 frodo 168 in_line.length = psiconv_read_u32(config,buf,lev+4,len+off,&res);
707 frodo 64 if (res)
708 frodo 160 goto ERROR5;
709 frodo 168 psiconv_debug(config,lev+4,off+len,"Length: %02x",in_line.length);
710 frodo 2 len += 4;
711 frodo 168 psiconv_progress(config,lev+4,off+len,"Going to read the character layout");
712     if ((res = psiconv_parse_character_layout_list(config,buf,lev+4,off+len,&leng,
713 frodo 64 in_line.layout)))
714 frodo 160 goto ERROR5;
715 frodo 2 len += leng;
716    
717     if (temp == 0x01) {
718 frodo 168 psiconv_debug(config,lev+4,off+len,"Found an embedded object");
719     psiconv_progress(config,lev+4,off+len,"Going to read the object marker "
720 frodo 160 "(0x%08x expected)",PSICONV_ID_OBJECT);
721 frodo 168 temp = psiconv_read_u32(config,buf,lev+4,off+len,&res);
722 frodo 160 if (res)
723     goto ERROR5;
724     if (temp != PSICONV_ID_OBJECT) {
725 frodo 168 psiconv_warn(config,lev+4,off+len,"Unknown id marks embedded object");
726     psiconv_debug(config,lev+4,off+len,"Marker: read %08x, expected %08x",
727 frodo 160 temp,PSICONV_ID_OBJECT);
728     }
729     len += 4;
730 frodo 168 psiconv_progress(config,lev+4,off+len,
731 frodo 160 "Going to read the Embedded Object Section offset");
732 frodo 168 temp = psiconv_read_u32(config,buf,lev+4,off+len,&res);
733 frodo 160 if (res)
734     goto ERROR5;
735 frodo 168 psiconv_debug(config,lev+4,off+len, "Offset: %08x",temp);
736 frodo 160 len += 4;
737 frodo 168 psiconv_progress(config,lev+4,off+len,
738 frodo 167 "Going to parse the Embedded Object Section");
739 frodo 168 if ((res = psiconv_parse_embedded_object_section(config,buf,lev+4,temp,
740 frodo 160 NULL,&(in_line.object))))
741     goto ERROR5;
742 frodo 168 psiconv_progress(config,lev+4,off+len,
743 frodo 160 "Going to read the object width");
744 frodo 168 in_line.object_width = psiconv_read_length(config,buf,lev+4,off+len,
745 frodo 160 &leng,&res);
746     if (res)
747     goto ERROR5;
748 frodo 168 psiconv_debug(config,lev+4,off+len,"Object width: %f cm",
749 frodo 160 in_line.object_width);
750     len += leng;
751 frodo 168 psiconv_progress(config,lev+4,off+len,
752 frodo 160 "Going to read the object height");
753 frodo 168 in_line.object_height = psiconv_read_length(config,buf,lev+4,off+len,&leng,
754 frodo 160 &res);
755     if (res)
756     goto ERROR5;
757 frodo 168 psiconv_debug(config,lev+4,off+len,"Object height: %f cm",
758 frodo 160 in_line.object_height);
759     len += leng;
760 frodo 2 } else if (temp != 0x00) {
761 frodo 168 psiconv_warn(config,lev+4,off+len,"Layout section unknown inline type");
762 frodo 2 }
763 frodo 184 if (line_length + in_line.length > psiconv_unicode_strlen(para->text)) {
764 frodo 168 psiconv_warn(config,lev+4,off+len,
765 frodo 2 "Layout section inlines: line length mismatch");
766     res = -1;
767 frodo 184 in_line.length = psiconv_unicode_strlen(para->text) - line_length;
768 frodo 2 }
769     line_length += in_line.length;
770 frodo 64 if ((res = psiconv_list_add(para->in_lines,&in_line)))
771 frodo 160 goto ERROR5;
772 frodo 2 }
773     }
774     }
775    
776     if (total != nr) {
777 frodo 168 psiconv_warn(config,lev+4,off+len,
778 frodo 2 "Layout section too many inlines, skipping remaining");
779     }
780    
781     free(inline_count);
782    
783     for (i = 0 ; i < psiconv_list_length(anon_styles); i ++) {
784 frodo 64 if (!(anon_ptr = psiconv_list_get(anon_styles,i))) {
785 frodo 233 psiconv_error(config,lev+4,off+len,"Data structure corruption");
786 frodo 64 goto ERROR2;
787     }
788 frodo 2 psiconv_free_character_layout(anon_ptr->character);
789     psiconv_free_paragraph_layout(anon_ptr->paragraph);
790     }
791     psiconv_list_free(anon_styles);
792    
793     if (length)
794     *length = len;
795    
796 frodo 168 psiconv_progress(config,lev+1,off+len-1,"End of layout section (total length: %08x)",
797 frodo 2 len);
798    
799 frodo 64 return 0;
800    
801     ERROR4_4:
802     psiconv_free_paragraph_layout(para->base_paragraph);
803     ERROR4_3:
804     psiconv_free_character_layout(para->base_character);
805     ERROR4_2:
806     psiconv_list_free(para->in_lines);
807     ERROR4_1:
808     free(para);
809     goto ERROR4;
810    
811     ERROR3_2:
812     psiconv_free_character_layout(anon.character);
813     ERROR3_1:
814     psiconv_free_paragraph_layout(anon.paragraph);
815     goto ERROR3;
816    
817 frodo 160 ERROR5:
818     if (in_line.layout)
819     psiconv_free_character_layout(in_line.layout);
820     if (in_line.object)
821 frodo 167 psiconv_free_embedded_object_section(in_line.object);
822 frodo 64 ERROR4:
823     free(inline_count);
824     ERROR3:
825     for (i = 0; i < psiconv_list_length(anon_styles); i++) {
826     if (!(anon_ptr = psiconv_list_get(anon_styles,i))) {
827 frodo 233 psiconv_error(config,lev+1,off,"Data structure corruption");
828 frodo 64 break;
829     }
830     psiconv_free_paragraph_layout(anon_ptr->paragraph);
831     psiconv_free_character_layout(anon_ptr->character);
832     }
833    
834     ERROR2:
835     psiconv_list_free(anon_styles);
836     ERROR1:
837 frodo 184 psiconv_error(config,lev+1,off,"Reading of Layout Section failed");
838 frodo 64 if (length)
839     *length = 0;
840     if (!res)
841     return -PSICONV_E_NOMEM;
842     else
843     return res;
844 frodo 2 }
845    
846 frodo 168 int psiconv_parse_styled_layout_section(const psiconv_config config,
847     const psiconv_buffer buf,
848 frodo 2 int lev,psiconv_u32 off,
849     int *length,
850     psiconv_text_and_layout result,
851     psiconv_word_styles_section styles)
852     {
853 frodo 168 return psiconv_parse_layout_section(config,buf,lev,off,length,result,styles,1);
854 frodo 2 }
855    
856 frodo 168 int psiconv_parse_styleless_layout_section(const psiconv_config config,
857     const psiconv_buffer buf,
858 frodo 79 int lev,psiconv_u32 off,
859     int *length,
860     psiconv_text_and_layout result,
861     const psiconv_character_layout base_char,
862     const psiconv_paragraph_layout base_para)
863 frodo 2 {
864 frodo 64 int res = 0;
865 frodo 2 psiconv_word_styles_section styles_section;
866    
867 frodo 64 if (!(styles_section = malloc(sizeof(*styles_section))))
868     goto ERROR1;
869     if (!(styles_section->normal = malloc(sizeof(*styles_section->normal))))
870     goto ERROR2;
871     if (!(styles_section->normal->character =
872     psiconv_clone_character_layout(base_char)))
873     goto ERROR3;
874     if (!(styles_section->normal->paragraph =
875     psiconv_clone_paragraph_layout(base_para)))
876     goto ERROR4;
877 frodo 2 styles_section->normal->hotkey = 0;
878 frodo 217
879     if (!(styles_section->normal->name = psiconv_unicode_empty_string()))
880 frodo 64 goto ERROR5;
881     if (!(styles_section->styles = psiconv_list_new(sizeof(
882     struct psiconv_word_style_s))))
883     goto ERROR6;
884 frodo 2
885 frodo 168 res = psiconv_parse_layout_section(config,buf,lev,off,length,result,
886 frodo 2 styles_section,0);
887    
888     psiconv_free_word_styles_section(styles_section);
889     return res;
890 frodo 64
891     ERROR6:
892     free(styles_section->normal->name);
893     ERROR5:
894     psiconv_free_paragraph_layout(styles_section->normal->paragraph);
895     ERROR4:
896     psiconv_free_character_layout(styles_section->normal->character);
897     ERROR3:
898     free(styles_section->normal);
899     ERROR2:
900     free(styles_section);
901     ERROR1:
902 frodo 184 psiconv_error(config,lev+1,off,"Reading of Styleless Layout Section failed");
903 frodo 64 if (length)
904     *length = 0;
905     if (!res)
906     return -PSICONV_E_NOMEM;
907     else
908     return res;
909 frodo 2 }
910    
911 frodo 168 int psiconv_parse_embedded_object_section(const psiconv_config config,
912     const psiconv_buffer buf, int lev,
913 frodo 160 psiconv_u32 off, int *length,
914 frodo 167 psiconv_embedded_object_section *result)
915 frodo 160 {
916     int res=0;
917     int len=0;
918     int leng,i;
919     psiconv_section_table_section table;
920     psiconv_section_table_entry entry;
921 frodo 161 psiconv_u32 icon_sec=0,display_sec=0,table_sec=0;
922 frodo 162 psiconv_buffer subbuf;
923 frodo 160
924 frodo 168 psiconv_progress(config,lev+1,off+len,"Going to read an Embedded Object");
925 frodo 160 if (!(*result = malloc(sizeof(**result))))
926     goto ERROR1;
927    
928 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the Embedded Object Section");
929     psiconv_parse_section_table_section(config,buf,lev+2,off+len,&leng,&table);
930 frodo 160 len += leng;
931    
932     for (i = 0; i < psiconv_list_length(table); i++) {
933 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read entry %d",i);
934 frodo 160 if (!(entry = psiconv_list_get(table,i)))
935     goto ERROR2;
936     if (entry->id == PSICONV_ID_OBJECT_DISPLAY_SECTION) {
937     display_sec = entry->offset;
938 frodo 168 psiconv_debug(config,lev+3,off+len,"Found the Object Display Section at %08x",
939 frodo 160 display_sec);
940     } else if (entry->id == PSICONV_ID_OBJECT_ICON_SECTION) {
941     icon_sec = entry->offset;
942 frodo 168 psiconv_debug(config,lev+3,off+len,"Found the Object Icon Section at %08x",
943 frodo 160 icon_sec);
944     } else if (entry->id == PSICONV_ID_OBJECT_SECTION_TABLE_SECTION) {
945     table_sec = entry->offset;
946 frodo 168 psiconv_debug(config,lev+3,off+len,"Found the Object Section Table Section at %08x",
947 frodo 160 table_sec);
948     } else {
949 frodo 168 psiconv_warn(config,lev+3,off+len,
950 frodo 160 "Found unknown section in the Object Display Section "
951     "(ignoring)");
952 frodo 168 psiconv_debug(config,lev+3,off+len,"Section ID %08x, offset %08x",
953 frodo 160 entry->id, entry->offset);
954     }
955     }
956    
957 frodo 168 psiconv_progress(config,lev+2,off+len,"Looking for the Object Display Section");
958 frodo 161 if (!icon_sec) {
959 frodo 168 psiconv_warn(config,lev+2,off+len,"Object Display Section not found");
960 frodo 161 (*result)->display = NULL;
961     } else {
962 frodo 168 psiconv_debug(config,lev+2,off+len,"Object Display Section at offset %08x",
963 frodo 161 display_sec);
964 frodo 168 if ((res = psiconv_parse_object_display_section(config,buf,lev+2,display_sec,NULL,
965 frodo 161 &(*result)->display)))
966     goto ERROR2;
967     }
968    
969 frodo 168 psiconv_progress(config,lev+2,off+len,"Looking for the Object Icon Section");
970 frodo 161 if (!icon_sec) {
971 frodo 168 psiconv_warn(config,lev+2,off+len,"Object Icon Section not found");
972 frodo 161 (*result)->icon = NULL;
973     } else {
974 frodo 168 psiconv_debug(config,lev+2,off+len,"Object Icon Section at offset %08x",icon_sec);
975     if ((res = psiconv_parse_object_icon_section(config,buf,lev+2,icon_sec,NULL,
976 frodo 161 &(*result)->icon)))
977 frodo 162 goto ERROR3;
978 frodo 161 }
979    
980 frodo 168 psiconv_progress(config,lev+2,off+len,
981 frodo 162 "Looking for the Section Table Offset Section");
982     if (!table_sec) {
983 frodo 168 psiconv_warn(config,lev+2,off+len,
984 frodo 162 "Embedded Section Table Offset Section not found");
985     (*result)->object = NULL;
986     } else {
987 frodo 168 psiconv_progress(config,lev+2,off+len,
988 frodo 162 "Extracting object: add %08x to all following offsets",
989     table_sec);
990     /* We can't determine the length of the object, so we just take it all */
991     if ((res = psiconv_buffer_subbuffer(&subbuf,buf,table_sec,
992     psiconv_buffer_length(buf)-table_sec)))
993     goto ERROR4;
994    
995     if (!((*result)->object = malloc(sizeof(*(*result)->object))))
996     goto ERROR5;
997    
998     /* We need to find the file type, but we don't have a normal header */
999     /* So we try to find the Application ID Section and hope for the best */
1000 frodo 168 psiconv_progress(config,lev+3,0,"Trying to determine the file type");
1001 frodo 162 (*result)->object->type = psiconv_determine_embedded_object_type
1002 frodo 168 (config,subbuf,lev+3,&res);
1003 frodo 162 switch ((*result)->object->type) {
1004     case psiconv_word_file:
1005 frodo 168 if ((res = psiconv_parse_word_file(config,subbuf,lev+3,0,
1006 frodo 162 ((psiconv_word_f *) &(*result)->object->file))))
1007     goto ERROR6;
1008     break;
1009     case psiconv_texted_file:
1010 frodo 168 if ((res = psiconv_parse_texted_file(config,subbuf,lev+3,0,
1011 frodo 162 ((psiconv_texted_f *) &(*result)->object->file))))
1012     goto ERROR6;
1013     break;
1014     case psiconv_sheet_file:
1015 frodo 168 if ((res = psiconv_parse_sheet_file(config,subbuf,lev+3,0,
1016 frodo 162 ((psiconv_sheet_f *) &(*result)->object->file))))
1017     goto ERROR6;
1018     break;
1019     case psiconv_sketch_file:
1020 frodo 168 if ((res = psiconv_parse_sketch_file(config,subbuf,lev+3,0,
1021 frodo 162 ((psiconv_sketch_f *) &(*result)->object->file))))
1022     goto ERROR6;
1023     break;
1024     default:
1025 frodo 168 psiconv_warn(config,lev+3,0,"Can't parse embedded object (still continuing)");
1026 frodo 162 (*result)->object->file = NULL;
1027     }
1028     }
1029    
1030 frodo 208 psiconv_buffer_free(subbuf);
1031     psiconv_free_section_table_section(table);
1032    
1033 frodo 161 if (length)
1034     *length = len;
1035    
1036 frodo 168 psiconv_progress(config,lev+1,off+len-1,"End of Embedded Object Section "
1037 frodo 160 "(total length: %08x)",len);
1038 frodo 161
1039 frodo 160 return res;
1040    
1041 frodo 162
1042     ERROR6:
1043     free((*result)->object);
1044     ERROR5:
1045     psiconv_buffer_free(subbuf);
1046     ERROR4:
1047     psiconv_free_object_icon_section((*result)->icon);
1048     ERROR3:
1049     psiconv_free_object_display_section((*result)->display);
1050 frodo 160 ERROR2:
1051     psiconv_free_section_table_section(table);
1052     ERROR1:
1053 frodo 184 psiconv_error(config,lev+1,off,"Reading Embedded Object failed");
1054 frodo 161
1055 frodo 160 if (length)
1056     *length = 0;
1057 frodo 161
1058 frodo 160 if (res == 0)
1059     return -PSICONV_E_NOMEM;
1060     else
1061     return res;
1062     }
1063 frodo 161
1064 frodo 162 psiconv_file_type_t psiconv_determine_embedded_object_type
1065 frodo 168 (const psiconv_config config,
1066     const psiconv_buffer buf,int lev,
1067 frodo 162 int *status)
1068     {
1069     psiconv_u32 off;
1070     psiconv_section_table_section table;
1071     int res,i;
1072     psiconv_file_type_t file_type = psiconv_unknown_file;
1073     psiconv_section_table_entry entry;
1074     psiconv_application_id_section applid;
1075    
1076 frodo 168 psiconv_progress(config,lev+1,0,"Going to determine embedded object file type");
1077     psiconv_progress(config,lev+2,0,"Going to read the Section Table Offset Section");
1078     off = psiconv_read_u32(config,buf,lev,0,&res);
1079 frodo 162 if (res)
1080     goto ERROR1;
1081 frodo 168 psiconv_debug(config,lev+2,0,"Offset: %08x",off);
1082 frodo 162
1083 frodo 168 psiconv_progress(config,lev+2,off,"Going to read the Section Table Section");
1084     if ((res = psiconv_parse_section_table_section(config,buf,lev+2,off,NULL,&table)))
1085 frodo 162 goto ERROR1;
1086    
1087 frodo 168 psiconv_progress(config,lev+2,off,"Going to search the Section Table Section "
1088 frodo 162 "for the Application ID Section");
1089     for (i=0; i < psiconv_list_length(table); i++) {
1090 frodo 168 psiconv_progress(config,lev+3,off,"Going to read entry %d",i);
1091 frodo 162 if (!(entry = psiconv_list_get(table,i)))
1092     goto ERROR2;
1093     if (entry->id == PSICONV_ID_APPL_ID_SECTION) {
1094 frodo 168 psiconv_progress(config,lev+3,off,
1095 frodo 162 "Found the Application ID Section at offset %08x",
1096     entry->offset);
1097     off = entry->offset;
1098     break;
1099     }
1100     }
1101     if (i == psiconv_list_length(table)) {
1102 frodo 184 psiconv_error(config,lev+2,off,"No Application ID Section found");
1103 frodo 162 res = PSICONV_E_PARSE;
1104     goto ERROR2;
1105     }
1106    
1107 frodo 168 psiconv_progress(config,lev+2,off,"Going to read the Application ID Section");
1108     if ((res = psiconv_parse_application_id_section(config,buf,lev+2,off,NULL,&applid)))
1109 frodo 162 goto ERROR2;
1110    
1111     switch (applid->id) {
1112     case PSICONV_ID_WORD: file_type = psiconv_word_file;
1113 frodo 168 psiconv_debug(config,lev+2,off,"Found a Word file");
1114 frodo 162 break;
1115     case PSICONV_ID_TEXTED: file_type = psiconv_texted_file;
1116 frodo 168 psiconv_debug(config,lev+2,off,"Found a TextEd file");
1117 frodo 162 break;
1118     case PSICONV_ID_SKETCH: file_type = psiconv_sketch_file;
1119 frodo 168 psiconv_debug(config,lev+2,off,"Found a Sketch file");
1120 frodo 162 break;
1121     case PSICONV_ID_SHEET: file_type = psiconv_sheet_file;
1122 frodo 168 psiconv_debug(config,lev+2,off,"Found a Sheet file");
1123 frodo 162 break;
1124 frodo 168 default: psiconv_warn(config,lev+2,off,"Found an unknown file type");
1125     psiconv_debug(config,lev+2,off,"Found ID %08x",applid->id);
1126 frodo 162 }
1127    
1128     ERROR2:
1129     psiconv_free_application_id_section(applid);
1130     ERROR1:
1131     psiconv_free_section_table_section(table);
1132     if (status)
1133     *status = res;
1134     return file_type;
1135    
1136     }
1137    
1138 frodo 168 int psiconv_parse_object_display_section(const psiconv_config config,
1139     const psiconv_buffer buf,int lev,
1140 frodo 161 psiconv_u32 off, int *length,
1141     psiconv_object_display_section *result)
1142     {
1143     int res = 0;
1144     int len = 0;
1145     int leng;
1146     psiconv_u32 temp;
1147    
1148 frodo 168 psiconv_progress(config,lev+1,off,"Going to read the Object Display Section");
1149 frodo 161 if (!(*result = malloc(sizeof(**result))))
1150     goto ERROR1;
1151    
1152 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the display as icon flag "
1153 frodo 161 "(expecting 0x00 or 0x01)");
1154 frodo 168 temp = psiconv_read_u8(config,buf,lev+2,off+len,&res);
1155 frodo 161 if (res)
1156     goto ERROR2;
1157     if (temp == 0x00) {
1158     (*result)->show_icon = psiconv_bool_true;
1159 frodo 168 psiconv_debug(config,lev+2,off+len,"Displayed as icon");
1160 frodo 161 } else if (temp == 0x01) {
1161     (*result)->show_icon = psiconv_bool_false;
1162 frodo 168 psiconv_debug(config,lev+2,off+len,"Displayed as full document");
1163 frodo 161 } else {
1164 frodo 168 psiconv_warn(config,lev+2,off+len,"Unknown Object Display Section Icon Flag");
1165     psiconv_debug(config,lev+2,off+len,"Icon flag found: %02x",temp);
1166 frodo 161 /* Improvise */
1167     (*result)->show_icon = (temp & 0x01?psiconv_bool_false:psiconv_bool_true);
1168     }
1169     len ++;
1170    
1171 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the display width");
1172     (*result)->width = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1173 frodo 161 if (res)
1174     goto ERROR2;
1175 frodo 168 psiconv_debug(config,lev+2,off+len,"Display width: %f cm",(*result)->width);
1176 frodo 161 len += leng;
1177    
1178 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the display height");
1179     (*result)->height = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1180 frodo 161 if (res)
1181     goto ERROR2;
1182 frodo 168 psiconv_debug(config,lev+2,off+len,"Display length: %f cm",(*result)->height);
1183 frodo 161 len += leng;
1184    
1185 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read unknown long (%08x expected)",
1186 frodo 161 0);
1187 frodo 168 temp = psiconv_read_u32(config,buf,lev+2,off+len,&res);
1188 frodo 161 if (temp != 0) {
1189 frodo 168 psiconv_warn(config,lev+2,off+len,"Unknown Object Display Section final long");
1190     psiconv_debug(config,lev+2,off+len,"Long read: %08x",temp);
1191 frodo 161 }
1192     len += 4;
1193    
1194     if (length)
1195     *length = len;
1196    
1197 frodo 168 psiconv_progress(config,lev+1,off+len-1,"End of Object Display Section "
1198 frodo 161 "(total length: %08x",len);
1199     return res;
1200    
1201     ERROR2:
1202     free(*result);
1203     ERROR1:
1204 frodo 184 psiconv_error(config,lev+1,off+len,"Reading of Object Display Section failed");
1205 frodo 161 if (length)
1206     *length=0;
1207     if (!res)
1208     return -PSICONV_E_NOMEM;
1209     else
1210     return res;
1211     }
1212    
1213 frodo 168 int psiconv_parse_object_icon_section(const psiconv_config config,
1214     const psiconv_buffer buf,int lev,
1215 frodo 161 psiconv_u32 off, int *length,
1216     psiconv_object_icon_section *result)
1217     {
1218     int res = 0;
1219     int len = 0;
1220     int leng;
1221    
1222 frodo 168 psiconv_progress(config,lev+1,off,"Going to read the Object Icon Section");
1223 frodo 161 if (!(*result = malloc(sizeof(**result))))
1224     goto ERROR1;
1225    
1226 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the icon name");
1227     (*result)->icon_name = psiconv_read_string(config,buf,lev+2,off+len,&leng,&res);
1228 frodo 161 if (res)
1229     goto ERROR2;
1230     len += leng;
1231    
1232 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the icon width");
1233     (*result)->icon_width = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1234 frodo 161 if (res)
1235     goto ERROR3;
1236 frodo 168 psiconv_debug(config,lev+2,off+len,"Icon width: %f cm",(*result)->icon_width);
1237 frodo 161 len += leng;
1238    
1239 frodo 168 psiconv_progress(config,lev+2,off+len,"Going to read the icon height");
1240     (*result)->icon_height = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1241 frodo 161 if (res)
1242     goto ERROR3;
1243 frodo 168 psiconv_debug(config,lev+2,off+len,"Icon length: %f cm",(*result)->icon_height);
1244 frodo 161 len += leng;
1245    
1246     if (length)
1247     *length = len;
1248    
1249 frodo 168 psiconv_progress(config,lev+1,off+len-1,"End of Object Icon Section"
1250 frodo 161 "(total length: %08x",len);
1251     return res;
1252    
1253     ERROR3:
1254     free((*result)->icon_name);
1255     ERROR2:
1256     free(*result);
1257     ERROR1:
1258 frodo 184 psiconv_error(config,lev+1,off+len,"Reading of Object Icon Section failed");
1259 frodo 161 if (length)
1260     *length=0;
1261     if (!res)
1262     return -PSICONV_E_NOMEM;
1263     else
1264     return res;
1265     }
frodo@frodo.looijaard.name
 ViewVC Help
Powered by ViewVC 1.1.26