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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 196 - (show annotations)
Wed Feb 4 12:19:09 2004 UTC (20 years, 1 month ago) by frodo
File MIME type: text/plain
File size: 45681 byte(s)
(Frodo) Copyright dates update

1 /*
2 parse_common.c - Part of psiconv, a PSION 5 file formats converter
3 Copyright (c) 1999-2004 Frodo Looijaard <frodol@dds.nl>
4
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
9
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
14
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18 */
19
20 #include "config.h"
21 #include "compat.h"
22 #include <stdlib.h>
23 #include <string.h>
24
25 #include "parse_routines.h"
26 #include "error.h"
27
28 #ifdef DMALLOC
29 #include <dmalloc.h>
30 #endif
31
32
33 static int psiconv_parse_layout_section(const psiconv_config config,
34 const psiconv_buffer buf,
35 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 static psiconv_file_type_t psiconv_determine_embedded_object_type
41 (const psiconv_config config,
42 const psiconv_buffer buf,int lev,
43 int *status);
44
45 int psiconv_parse_header_section(const psiconv_config config,
46 const psiconv_buffer buf,int lev,
47 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 psiconv_progress(config,lev+1,off+len,"Going to read the header section");
55 if (!((*result) = malloc(sizeof(**result))))
56 goto ERROR1;
57
58 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 if (res)
61 goto ERROR2;
62 psiconv_debug(config,lev+2,off+len,"UID1: %08x",(*result)->uid1);
63 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 psiconv_debug(config,lev+2,off+len,"File is a Clipart file");
71 goto DONE;
72 }
73 if ((*result)->uid1 != PSICONV_ID_PSION5) {
74 psiconv_error(config,lev+2,off+len,
75 "UID1 has unknown value. This is probably "
76 "not a (parsable) Psion 5 file");
77 res = -PSICONV_E_PARSE;
78 goto ERROR2;
79 }
80 len += 4;
81 (*result)->uid2 = psiconv_read_u32(config,buf,lev+2,off+len,&res);
82 if (res)
83 goto ERROR2;
84 psiconv_debug(config,lev+2,off+len,"UID2: %08x",(*result)->uid2);
85 len += 4;
86 (*result)->uid3 = psiconv_read_u32(config,buf,lev+2,off+len,&res);
87 if (res)
88 goto ERROR2;
89 psiconv_debug(config,lev+2,off+len,"UID3: %08x",(*result)->uid3);
90 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 psiconv_debug(config,lev+2,off+len,"File is a Word file");
98 } else if ((*result)->uid3 == PSICONV_ID_TEXTED) {
99 (*result)->file = psiconv_texted_file;
100 psiconv_debug(config,lev+2,off+len,"File is a TextEd file");
101 } else if ((*result)->uid3 == PSICONV_ID_SKETCH) {
102 (*result)->file = psiconv_sketch_file;
103 psiconv_debug(config,lev+2,off+len,"File is a Sketch file");
104 } else if ((*result)->uid3 == PSICONV_ID_SHEET) {
105 (*result)->file = psiconv_sheet_file;
106 psiconv_debug(config,lev+2,off+len,"File is a Sheet file");
107 }
108 } else if ((*result)->uid2 == PSICONV_ID_MBM_FILE) {
109 (*result)->file = psiconv_mbm_file;
110 if ((*result)->uid3 != 0x00)
111 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 }
114 }
115 if ((*result)->file == psiconv_unknown_file) {
116 psiconv_warn(config,lev+2,off+len,"Unknown file type");
117 (*result)->file = psiconv_unknown_file;
118 }
119
120 psiconv_progress(config,lev+2,off+len,"Checking UID4");
121 temp = psiconv_read_u32(config,buf,lev+2,off+len,&res);
122 if (res)
123 goto ERROR2;
124 if (temp == psiconv_checkuid((*result)->uid1,(*result)->uid2,
125 (*result)->uid3))
126 psiconv_debug(config,lev+2,off+len,"Checksum %08x is correct",temp);
127 else {
128 psiconv_error(config,lev+2,off+len,"Checksum failed, file corrupted!");
129 psiconv_debug(config,lev+2,off+len,"Expected checksum %08x, found %08x",
130 psiconv_checkuid((*result)->uid1,(*result)->uid2,
131 (*result)->uid3),temp);
132 res = -PSICONV_E_PARSE;
133 goto ERROR2;
134 }
135 len += 4;
136
137 DONE:
138 if (length)
139 *length = len;
140
141 psiconv_progress(config,lev+1,off+len-1,
142 "End of Header Section (total length: %08x)",len);
143
144 return res;
145
146 ERROR2:
147 free(*result);
148 ERROR1:
149 psiconv_error(config,lev+1,off,"Reading of Header Section failed");
150 if (length)
151 *length = 0;
152 if (res == 0)
153 return -PSICONV_E_NOMEM;
154 else
155 return res;
156 }
157
158 int psiconv_parse_section_table_section(const psiconv_config config,
159 const psiconv_buffer buf, int lev,
160 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 psiconv_progress(config,lev+1,off+len,"Going to read the section table section");
171 if (!(*result = psiconv_list_new(sizeof(*entry))))
172 goto ERROR1;
173
174 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 if (res)
177 goto ERROR2;
178 psiconv_debug(config,lev+2,off+len,"Length: %08x",nr);
179 if (nr & 0x01) {
180 psiconv_warn(config,lev+2,off+len,
181 "Section table length odd - ignoring last entry");
182 }
183 len ++;
184
185 psiconv_progress(config,lev+2,off+len,"Going to read the section table entries");
186 entry = malloc(sizeof(*entry));
187 for (i = 0; i < nr / 2; i++) {
188 entry->id = psiconv_read_u32(config,buf,lev+2,off + len,&res);
189 if (res)
190 goto ERROR3;
191 psiconv_debug(config,lev+2,off + len,"Entry %d: ID = %08x",i,entry->id);
192 len += 0x04;
193 entry->offset = psiconv_read_u32(config,buf,lev+2,off + len,&res);
194 if (res)
195 goto ERROR3;
196 psiconv_debug(config,lev+2,off +len,"Entry %d: Offset = %08x",i,entry->offset);
197 len += 0x04;
198 if ((res=psiconv_list_add(*result,entry)))
199 goto ERROR3;
200 }
201
202 free(entry);
203
204 if (length)
205 *length = len;
206
207 psiconv_progress(config,lev+1,off+len-1,"End of section table section "
208 "(total length: %08x)", len);
209
210 return 0;
211 ERROR3:
212 free(entry);
213 ERROR2:
214 psiconv_list_free(*result);
215 ERROR1:
216 psiconv_error(config,lev+1,off,"Reading of Section Table Section failed");
217 if (length)
218 *length = 0;
219 if (res == 0)
220 return -PSICONV_E_NOMEM;
221 else
222 return res;
223 }
224
225 int psiconv_parse_application_id_section(const psiconv_config config,
226 const psiconv_buffer buf, int lev,
227 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 psiconv_progress(config,lev+1,off,"Going to read the application id section");
235 if (!(*result = malloc(sizeof(**result))))
236 goto ERROR1;
237
238 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 if (res)
241 goto ERROR2;
242 psiconv_debug(config,lev+2,off+len,"Identifier: %08x",(*result)->id);
243 len += 4;
244
245 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 if (res)
248 goto ERROR2;
249 len += leng;
250
251 if (length)
252 *length = len;
253
254 psiconv_progress(config,lev+1,off+len-1,"End of application id section "
255 "(total length: %08x", len);
256
257 return res;
258 ERROR2:
259 free(*result);
260 ERROR1:
261 psiconv_error(config,lev+1,off,"Reading of Application ID Section failed");
262 if (length)
263 *length = 0;
264 if (res == 0)
265 return -PSICONV_E_NOMEM;
266 else
267 return res;
268 }
269
270 int psiconv_parse_text_section(const psiconv_config config,
271 const psiconv_buffer buf,int lev,psiconv_u32 off,
272 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 psiconv_u8 temp;
281
282 int nr;
283 int i,j,start,leng;
284 char *str_copy;
285
286 psiconv_progress(config,lev+1,off,"Going to parse the text section");
287 psiconv_progress(config,lev+2,off,"Reading the text length");
288
289 if(!(*result = psiconv_list_new(sizeof(*para))))
290 goto ERROR1;
291 if (!(para = malloc(sizeof(*para))))
292 goto ERROR2;
293
294 text_len = psiconv_read_X(config,buf,lev+2,off,&leng,&res);
295 if (res)
296 goto ERROR3;
297 psiconv_debug(config,lev+2,off,"Length: %08x",text_len);
298 len += leng;
299
300 psiconv_progress(config,lev+2,off+len,"Going to read all paragraph text");
301 nr = 0;
302 start = 0;
303 for (i = 0; i < text_len; i++) {
304 temp = psiconv_read_u8(config,buf,lev+2,off+len+i,&res);
305 if (res)
306 goto ERROR3;
307 if (temp == 0x06) {
308 if (!(para->text = malloc((sizeof((*(para->text))) * (i - start + 1)))))
309 goto ERROR3;
310 for (j = 0; j < i - start; j++) {
311 temp = psiconv_read_u8(config,buf,lev+1,off + len + start + j,&res);
312 if (res)
313 goto ERROR4;
314 para->text[j] = psiconv_unicode_from_char(config,temp);
315 }
316 para->text[j] = 0;
317
318 if ((res = psiconv_list_add(*result,para)))
319 goto ERROR4;
320
321 if (!(str_copy = psiconv_make_printable(config,para->text)))
322 goto ERROR3;
323 psiconv_debug(config,lev+2,off+i+len,"Line %d: %d characters",nr,
324 strlen(str_copy) +1);
325 psiconv_debug(config,lev+2,off+i+len,"Line %d: `%s'",nr,str_copy);
326 free(str_copy);
327
328 start = i + 1;
329 nr ++;
330 }
331 }
332
333 if (start != text_len) {
334 psiconv_warn(config,lev+2,off+start+len,
335 "Last line does not end on EOL (%d characters left)", len - start);
336 if (!(para->text = malloc(text_len - start + 1)))
337 goto ERROR3;
338 for (j = 0; j < text_len - start; j++) {
339 temp = psiconv_read_u8(config,buf,lev+2,off + start + j + len, &res);
340 if (res)
341 goto ERROR4;
342 para->text[j] = psiconv_unicode_from_char(config,temp);
343 }
344 para->text[text_len - start] = 0;
345 if ((res = psiconv_list_add(*result,para)))
346 goto ERROR4;
347 if (!(str_copy = psiconv_make_printable(config,para->text)))
348 goto ERROR3;
349 psiconv_debug(config,lev+2,off+start+len,"Last line: %d characters",nr,
350 strlen(str_copy)+1);
351 psiconv_debug(config,lev+2,off+start+len,"Last line: `%s'",str_copy);
352 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 if (!(para = psiconv_list_get(*result,i))) {
360 psiconv_error(config,lev+2,off+len,"Massive memory corruption");
361 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 para->base_style = 0;
374 }
375
376
377 len += text_len;
378
379 if (length)
380 *length = len;
381
382 psiconv_progress(config,lev+1,off+len-1,"End of text section (total length: %08x",
383 len);
384
385 return res;
386
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 psiconv_error(config,lev+1,off,"Massive memory corruption...");
397 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 psiconv_error(config,lev+1,off,"Massive memory corruption...");
414 break;
415 }
416 free(para->text);
417 }
418 psiconv_list_free(*result);
419 ERROR1:
420 psiconv_error(config,lev+1,off,"Reading of Text Section failed");
421 if (length)
422 *length = 0;
423 if (!res)
424 return -PSICONV_E_NOMEM;
425 else
426 return res;
427 }
428
429 /* First do a parse_text_section, or you will get into trouble here */
430 int psiconv_parse_layout_section(const psiconv_config config,
431 const psiconv_buffer buf,
432 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 typedef struct anon_style_s
444 {
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 struct anon_style_s anon;
455 anon_style anon_ptr=NULL;
456
457 psiconv_character_layout temp_char;
458 psiconv_paragraph_layout temp_para;
459 psiconv_word_style temp_style;
460 psiconv_paragraph para;
461 struct psiconv_in_line_layout_s in_line;
462
463 int *inline_count;
464
465
466 psiconv_progress(config,lev+1,off,"Going to read the layout section");
467
468 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 if (res)
471 goto ERROR1;
472 psiconv_debug(config,lev+2,off+len,"Type: %02x",temp);
473 parse_styles = with_styles;
474 if ((temp == 0x0001) && !with_styles) {
475 psiconv_warn(config,lev+2,off+len,"Styleless layout section expected, "
476 "but styled section found!");
477 parse_styles = 1;
478 } else if ((temp == 0x0000) && (with_styles)) {
479 psiconv_warn(config,lev+2,off+len,"Styled layout section expected, "
480 "but styleless section found!");
481 parse_styles = 0;
482 } else if ((temp != 0x0000) && (temp != 0x0001)) {
483 psiconv_warn(config,lev+2,off+len,
484 "Layout section type indicator has unknown value!");
485 }
486 len += 0x02;
487
488 psiconv_progress(config,lev+2,off+len,"Going to read paragraph type list");
489 if (!(anon_styles = psiconv_list_new(sizeof(anon))))
490 goto ERROR1;
491 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 if (res)
494 goto ERROR2;
495 psiconv_debug(config,lev+3,off+len,"Length: %02x",nr);
496 len ++;
497
498 psiconv_progress(config,lev+3,off+len,
499 "Going to read the paragraph type list elements");
500 for (i = 0; i < nr; i ++) {
501 psiconv_progress(config,lev+3,off+len,"Element %d",i);
502 anon.nr = psiconv_read_u32(config,buf,lev+4,off+len,&res);
503 if (res)
504 goto ERROR3;
505 psiconv_debug(config,lev+4,off+len,"Number: %08x",anon.nr);
506 len += 0x04;
507
508 psiconv_progress(config,lev+4,off,"Going to determine the base style");
509 if (parse_styles) {
510 temp = psiconv_read_u32(config,buf,lev+4, off+len,&res);
511 if (res)
512 goto ERROR3;
513 anon.base_style = psiconv_read_u8(config,buf,lev+3, off+len+4+temp,&res);
514 if (res)
515 goto ERROR3;
516 psiconv_debug(config,lev+4,off+len+temp,
517 "Style indicator: %02x",anon.base_style);
518 } else
519 anon.base_style = 0;
520 if (!(temp_style = psiconv_get_style(styles,anon.base_style))) {
521 psiconv_warn(config,lev+4,off,"Unknown Style referenced");
522 if (!(temp_style = psiconv_get_style(styles,anon.base_style))) {
523 psiconv_warn(config,lev+4,off,"Base style unknown");
524 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
534 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 anon.paragraph)))
537 goto ERROR3_2;
538 len += leng;
539 if (parse_styles)
540 len ++;
541
542 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 anon.character)))
545 goto ERROR3_2;
546 len += leng;
547 if ((res = psiconv_list_add(anon_styles,&anon)))
548 goto ERROR3_2;
549 }
550
551 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 if (res)
555 goto ERROR3;
556 if (nr != psiconv_list_length(result)) {
557 psiconv_warn(config,lev+3,off+len,
558 "Number of text paragraphs and paragraph elements does not match");
559 psiconv_debug(config,lev+3,off+len,
560 "%d text paragraphs, %d paragraph elements",
561 psiconv_list_length(result),nr);
562 }
563 psiconv_debug(config,lev+3,off+len,"Number of paragraphs: %d",nr);
564 len += 4;
565 if (!(inline_count = malloc(nr * sizeof(*inline_count))))
566 goto ERROR3;
567
568 psiconv_progress(config,lev+3,off+len,"Going to read the paragraph elements");
569 for (i = 0; i < nr; i ++) {
570 psiconv_progress(config,lev+3,off+len,"Element %d",i);
571 if (i >= psiconv_list_length(result)) {
572 psiconv_debug(config,lev+4,off+len,"Going to allocate a new element");
573 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 para->base_style = 0;
579 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 free(para);
586 }
587 if (!(para = psiconv_list_get(result,i)))
588 goto ERROR4;
589
590 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 if (res)
593 goto ERROR4;
594 if (temp != psiconv_unicode_strlen(para->text)+1) {
595 psiconv_warn(config,lev+4,off+len,
596 "Disagreement of the length of paragraph in layout section");
597 psiconv_debug(config,lev+4,off+len,
598 "Paragraph length: layout section says %d, counted %d",
599 temp,psiconv_unicode_strlen(para->text)+1);
600 } else
601 psiconv_debug(config,lev+4,off+len,"Paragraph length: %d",temp);
602 len += 4;
603
604 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 if (res)
607 goto ERROR4;
608 if (temp != 0x00) {
609 psiconv_debug(config,lev+4,off+len,"Type: %02x",temp);
610 for (j = 0; j < psiconv_list_length(anon_styles); j++) {
611 if (!(anon_ptr = psiconv_list_get(anon_styles,j))) {
612 psiconv_error(config,lev+4,off+len,"Massive memory curruption");
613 goto ERROR4;
614 }
615 if (temp == anon_ptr->nr)
616 break;
617 }
618 if (j == psiconv_list_length(anon_styles)) {
619 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 para->base_style = 0;
622 if (!(temp_style = psiconv_get_style(styles,0))) {
623 psiconv_error(config,lev+4,off,"Base style unknown");
624 goto ERROR4;
625 }
626 if (!(temp_para = psiconv_clone_paragraph_layout
627 (temp_style->paragraph)))
628 goto ERROR4;
629 psiconv_free_paragraph_layout(para->base_paragraph);
630 para->base_paragraph = temp_para;
631
632 if (!(temp_char = psiconv_clone_character_layout
633 (temp_style->character)))
634 goto ERROR4;
635 psiconv_free_character_layout(para->base_character);
636 para->base_character = temp_char;
637 } else {
638 para->base_style = anon_ptr->base_style;
639 if (!(temp_para = psiconv_clone_paragraph_layout (anon_ptr->paragraph)))
640 goto ERROR4;
641 psiconv_free_paragraph_layout(para->base_paragraph);
642 para->base_paragraph = temp_para;
643
644 if (!(temp_char = psiconv_clone_character_layout (anon_ptr->character)))
645 goto ERROR4;
646 psiconv_free_character_layout(para->base_character);
647 para->base_character = temp_char;
648 }
649 inline_count[i] = 0;
650 len += 0x01;
651 } else {
652 psiconv_debug(config,lev+4,off+len,"Type: %02x (not based on a paragraph type)"
653 ,temp);
654 len += 0x01;
655 if (parse_styles) {
656 temp = psiconv_read_u32(config,buf,lev+4,off+len,&res);
657 if (res)
658 goto ERROR4;
659 psiconv_progress(config,lev+4,off+len+temp+4,
660 "Going to read the paragraph element base style");
661 temp = psiconv_read_u8(config,buf,lev+4, off+len+temp+4,&res);
662 if (res)
663 goto ERROR4;
664 psiconv_debug(config,lev+4,off+len+temp+4, "Style: %02x",temp);
665 } else
666 temp = 0x00;
667
668 if (!(temp_style = psiconv_get_style (styles,temp))) {
669 psiconv_warn(config,lev+4,off,"Unknown Style referenced");
670 if (!(temp_style = psiconv_get_style(styles,0))) {
671 psiconv_error(config,lev+4,off,"Base style unknown");
672 goto ERROR4;
673 }
674 }
675
676 if (!(temp_para = psiconv_clone_paragraph_layout(temp_style->paragraph)))
677 goto ERROR4;
678 psiconv_free_paragraph_layout(para->base_paragraph);
679 para->base_paragraph = temp_para;
680
681 if (!(temp_char = psiconv_clone_character_layout(temp_style->character)))
682 goto ERROR4;
683 psiconv_free_character_layout(para->base_character);
684 para->base_character = temp_char;
685
686 para->base_style = temp;
687 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 para->base_paragraph)))
690 goto ERROR4;
691 len += leng;
692 if (parse_styles)
693 len += 1;
694 psiconv_progress(config,lev+4,off+len,"Going to read number of in-line "
695 "layout elements");
696 inline_count[i] = psiconv_read_u32(config,buf,lev+4,off+len,&res);
697 if (res)
698 goto ERROR4;
699 psiconv_debug(config,lev+4,off+len,"Nr: %08x",inline_count[i]);
700 len += 4;
701 }
702 }
703
704 psiconv_progress(config,lev+2,off+len,"Going to read the text layout inline list");
705
706 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 if (res)
709 goto ERROR4;
710 psiconv_debug(config,lev+3,off+len,"Elements: %08x",nr);
711 len += 0x04;
712
713 psiconv_progress(config,lev+3,off+len,
714 "Going to read the text layout inline elements");
715 total = 0;
716 for (i = 0; i < psiconv_list_length(result); i++) {
717 if (!(para = psiconv_list_get(result,i))) {
718 psiconv_error(config,lev+3,off+len,"Massive memory corruption");
719 goto ERROR4;
720 }
721 line_length = -1;
722 for (j = 0; j < inline_count[i]; j++) {
723 psiconv_progress(config,lev+3,off+len,"Element %d: Paragraph %d, element %d",
724 total,i,j);
725 if (total >= nr) {
726 psiconv_warn(config,lev+3,off+len,
727 "Layout section inlines: not enough element");
728 psiconv_debug(config,lev+3,off+len,"Can't read element!");
729 } else {
730 total ++;
731 in_line.object = NULL;
732 in_line.layout = NULL;
733 if (!(in_line.layout = psiconv_clone_character_layout
734 (para->base_character)))
735 goto ERROR4;
736 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 if (res)
739 goto ERROR5;
740 len += 1;
741 psiconv_debug(config,lev+4,off+len,"Type: %02x",temp);
742 psiconv_progress(config,lev+4,off+len,
743 "Going to read the number of characters it applies to");
744 in_line.length = psiconv_read_u32(config,buf,lev+4,len+off,&res);
745 if (res)
746 goto ERROR5;
747 psiconv_debug(config,lev+4,off+len,"Length: %02x",in_line.length);
748 len += 4;
749 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 in_line.layout)))
752 goto ERROR5;
753 len += leng;
754
755 if (temp == 0x01) {
756 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 "(0x%08x expected)",PSICONV_ID_OBJECT);
759 temp = psiconv_read_u32(config,buf,lev+4,off+len,&res);
760 if (res)
761 goto ERROR5;
762 if (temp != PSICONV_ID_OBJECT) {
763 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 temp,PSICONV_ID_OBJECT);
766 }
767 len += 4;
768 psiconv_progress(config,lev+4,off+len,
769 "Going to read the Embedded Object Section offset");
770 temp = psiconv_read_u32(config,buf,lev+4,off+len,&res);
771 if (res)
772 goto ERROR5;
773 psiconv_debug(config,lev+4,off+len, "Offset: %08x",temp);
774 len += 4;
775 psiconv_progress(config,lev+4,off+len,
776 "Going to parse the Embedded Object Section");
777 if ((res = psiconv_parse_embedded_object_section(config,buf,lev+4,temp,
778 NULL,&(in_line.object))))
779 goto ERROR5;
780 psiconv_progress(config,lev+4,off+len,
781 "Going to read the object width");
782 in_line.object_width = psiconv_read_length(config,buf,lev+4,off+len,
783 &leng,&res);
784 if (res)
785 goto ERROR5;
786 psiconv_debug(config,lev+4,off+len,"Object width: %f cm",
787 in_line.object_width);
788 len += leng;
789 psiconv_progress(config,lev+4,off+len,
790 "Going to read the object height");
791 in_line.object_height = psiconv_read_length(config,buf,lev+4,off+len,&leng,
792 &res);
793 if (res)
794 goto ERROR5;
795 psiconv_debug(config,lev+4,off+len,"Object height: %f cm",
796 in_line.object_height);
797 len += leng;
798 } else if (temp != 0x00) {
799 psiconv_warn(config,lev+4,off+len,"Layout section unknown inline type");
800 }
801 if (line_length + in_line.length > psiconv_unicode_strlen(para->text)) {
802 psiconv_warn(config,lev+4,off+len,
803 "Layout section inlines: line length mismatch");
804 res = -1;
805 in_line.length = psiconv_unicode_strlen(para->text) - line_length;
806 }
807 line_length += in_line.length;
808 if ((res = psiconv_list_add(para->in_lines,&in_line)))
809 goto ERROR5;
810 }
811 }
812 }
813
814 if (total != nr) {
815 psiconv_warn(config,lev+4,off+len,
816 "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 if (!(anon_ptr = psiconv_list_get(anon_styles,i))) {
823 psiconv_error(config,lev+4,off+len,"Massive memory corruption");
824 goto ERROR2;
825 }
826 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 psiconv_progress(config,lev+1,off+len-1,"End of layout section (total length: %08x)",
835 len);
836
837 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 ERROR5:
856 if (in_line.layout)
857 psiconv_free_character_layout(in_line.layout);
858 if (in_line.object)
859 psiconv_free_embedded_object_section(in_line.object);
860 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 psiconv_error(config,lev+1,off,"Massive memory corruption");
866 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 psiconv_error(config,lev+1,off,"Reading of Layout Section failed");
876 if (length)
877 *length = 0;
878 if (!res)
879 return -PSICONV_E_NOMEM;
880 else
881 return res;
882 }
883
884 int psiconv_parse_styled_layout_section(const psiconv_config config,
885 const psiconv_buffer buf,
886 int lev,psiconv_u32 off,
887 int *length,
888 psiconv_text_and_layout result,
889 psiconv_word_styles_section styles)
890 {
891 return psiconv_parse_layout_section(config,buf,lev,off,length,result,styles,1);
892 }
893
894 int psiconv_parse_styleless_layout_section(const psiconv_config config,
895 const psiconv_buffer buf,
896 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 {
902 int res = 0;
903 psiconv_word_styles_section styles_section;
904
905 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 styles_section->normal->hotkey = 0;
916 if (( res = psiconv_unicode_from_chars(config,(psiconv_u8 *) "",
917 &styles_section->normal->name)))
918 goto ERROR5;
919 if (!(styles_section->styles = psiconv_list_new(sizeof(
920 struct psiconv_word_style_s))))
921 goto ERROR6;
922
923 res = psiconv_parse_layout_section(config,buf,lev,off,length,result,
924 styles_section,0);
925
926 psiconv_free_word_styles_section(styles_section);
927 return res;
928
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 psiconv_error(config,lev+1,off,"Reading of Styleless Layout Section failed");
941 if (length)
942 *length = 0;
943 if (!res)
944 return -PSICONV_E_NOMEM;
945 else
946 return res;
947 }
948
949 int psiconv_parse_embedded_object_section(const psiconv_config config,
950 const psiconv_buffer buf, int lev,
951 psiconv_u32 off, int *length,
952 psiconv_embedded_object_section *result)
953 {
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 psiconv_u32 icon_sec=0,display_sec=0,table_sec=0;
960 psiconv_buffer subbuf;
961
962 psiconv_progress(config,lev+1,off+len,"Going to read an Embedded Object");
963 if (!(*result = malloc(sizeof(**result))))
964 goto ERROR1;
965
966 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 len += leng;
969
970 for (i = 0; i < psiconv_list_length(table); i++) {
971 psiconv_progress(config,lev+2,off+len,"Going to read entry %d",i);
972 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 psiconv_debug(config,lev+3,off+len,"Found the Object Display Section at %08x",
977 display_sec);
978 } else if (entry->id == PSICONV_ID_OBJECT_ICON_SECTION) {
979 icon_sec = entry->offset;
980 psiconv_debug(config,lev+3,off+len,"Found the Object Icon Section at %08x",
981 icon_sec);
982 } else if (entry->id == PSICONV_ID_OBJECT_SECTION_TABLE_SECTION) {
983 table_sec = entry->offset;
984 psiconv_debug(config,lev+3,off+len,"Found the Object Section Table Section at %08x",
985 table_sec);
986 } else {
987 psiconv_warn(config,lev+3,off+len,
988 "Found unknown section in the Object Display Section "
989 "(ignoring)");
990 psiconv_debug(config,lev+3,off+len,"Section ID %08x, offset %08x",
991 entry->id, entry->offset);
992 }
993 }
994
995 psiconv_progress(config,lev+2,off+len,"Looking for the Object Display Section");
996 if (!icon_sec) {
997 psiconv_warn(config,lev+2,off+len,"Object Display Section not found");
998 (*result)->display = NULL;
999 } else {
1000 psiconv_debug(config,lev+2,off+len,"Object Display Section at offset %08x",
1001 display_sec);
1002 if ((res = psiconv_parse_object_display_section(config,buf,lev+2,display_sec,NULL,
1003 &(*result)->display)))
1004 goto ERROR2;
1005 }
1006
1007 psiconv_progress(config,lev+2,off+len,"Looking for the Object Icon Section");
1008 if (!icon_sec) {
1009 psiconv_warn(config,lev+2,off+len,"Object Icon Section not found");
1010 (*result)->icon = NULL;
1011 } else {
1012 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 &(*result)->icon)))
1015 goto ERROR3;
1016 }
1017
1018 psiconv_progress(config,lev+2,off+len,
1019 "Looking for the Section Table Offset Section");
1020 if (!table_sec) {
1021 psiconv_warn(config,lev+2,off+len,
1022 "Embedded Section Table Offset Section not found");
1023 (*result)->object = NULL;
1024 } else {
1025 psiconv_progress(config,lev+2,off+len,
1026 "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 psiconv_progress(config,lev+3,0,"Trying to determine the file type");
1039 (*result)->object->type = psiconv_determine_embedded_object_type
1040 (config,subbuf,lev+3,&res);
1041 switch ((*result)->object->type) {
1042 case psiconv_word_file:
1043 if ((res = psiconv_parse_word_file(config,subbuf,lev+3,0,
1044 ((psiconv_word_f *) &(*result)->object->file))))
1045 goto ERROR6;
1046 break;
1047 case psiconv_texted_file:
1048 if ((res = psiconv_parse_texted_file(config,subbuf,lev+3,0,
1049 ((psiconv_texted_f *) &(*result)->object->file))))
1050 goto ERROR6;
1051 break;
1052 case psiconv_sheet_file:
1053 if ((res = psiconv_parse_sheet_file(config,subbuf,lev+3,0,
1054 ((psiconv_sheet_f *) &(*result)->object->file))))
1055 goto ERROR6;
1056 break;
1057 case psiconv_sketch_file:
1058 if ((res = psiconv_parse_sketch_file(config,subbuf,lev+3,0,
1059 ((psiconv_sketch_f *) &(*result)->object->file))))
1060 goto ERROR6;
1061 break;
1062 default:
1063 psiconv_warn(config,lev+3,0,"Can't parse embedded object (still continuing)");
1064 (*result)->object->file = NULL;
1065 }
1066 }
1067
1068 if (length)
1069 *length = len;
1070
1071 psiconv_progress(config,lev+1,off+len-1,"End of Embedded Object Section "
1072 "(total length: %08x)",len);
1073
1074 return res;
1075
1076
1077 ERROR6:
1078 free((*result)->object);
1079 ERROR5:
1080 psiconv_buffer_free(subbuf);
1081 ERROR4:
1082 psiconv_free_object_icon_section((*result)->icon);
1083 ERROR3:
1084 psiconv_free_object_display_section((*result)->display);
1085 ERROR2:
1086 psiconv_free_section_table_section(table);
1087 ERROR1:
1088 psiconv_error(config,lev+1,off,"Reading Embedded Object failed");
1089
1090 if (length)
1091 *length = 0;
1092
1093 if (res == 0)
1094 return -PSICONV_E_NOMEM;
1095 else
1096 return res;
1097 }
1098
1099 psiconv_file_type_t psiconv_determine_embedded_object_type
1100 (const psiconv_config config,
1101 const psiconv_buffer buf,int lev,
1102 int *status)
1103 {
1104 psiconv_u32 off;
1105 psiconv_section_table_section table;
1106 int res,i;
1107 psiconv_file_type_t file_type = psiconv_unknown_file;
1108 psiconv_section_table_entry entry;
1109 psiconv_application_id_section applid;
1110
1111 psiconv_progress(config,lev+1,0,"Going to determine embedded object file type");
1112 psiconv_progress(config,lev+2,0,"Going to read the Section Table Offset Section");
1113 off = psiconv_read_u32(config,buf,lev,0,&res);
1114 if (res)
1115 goto ERROR1;
1116 psiconv_debug(config,lev+2,0,"Offset: %08x",off);
1117
1118 psiconv_progress(config,lev+2,off,"Going to read the Section Table Section");
1119 if ((res = psiconv_parse_section_table_section(config,buf,lev+2,off,NULL,&table)))
1120 goto ERROR1;
1121
1122 psiconv_progress(config,lev+2,off,"Going to search the Section Table Section "
1123 "for the Application ID Section");
1124 for (i=0; i < psiconv_list_length(table); i++) {
1125 psiconv_progress(config,lev+3,off,"Going to read entry %d",i);
1126 if (!(entry = psiconv_list_get(table,i)))
1127 goto ERROR2;
1128 if (entry->id == PSICONV_ID_APPL_ID_SECTION) {
1129 psiconv_progress(config,lev+3,off,
1130 "Found the Application ID Section at offset %08x",
1131 entry->offset);
1132 off = entry->offset;
1133 break;
1134 }
1135 }
1136 if (i == psiconv_list_length(table)) {
1137 psiconv_error(config,lev+2,off,"No Application ID Section found");
1138 res = PSICONV_E_PARSE;
1139 goto ERROR2;
1140 }
1141
1142 psiconv_progress(config,lev+2,off,"Going to read the Application ID Section");
1143 if ((res = psiconv_parse_application_id_section(config,buf,lev+2,off,NULL,&applid)))
1144 goto ERROR2;
1145
1146 switch (applid->id) {
1147 case PSICONV_ID_WORD: file_type = psiconv_word_file;
1148 psiconv_debug(config,lev+2,off,"Found a Word file");
1149 break;
1150 case PSICONV_ID_TEXTED: file_type = psiconv_texted_file;
1151 psiconv_debug(config,lev+2,off,"Found a TextEd file");
1152 break;
1153 case PSICONV_ID_SKETCH: file_type = psiconv_sketch_file;
1154 psiconv_debug(config,lev+2,off,"Found a Sketch file");
1155 break;
1156 case PSICONV_ID_SHEET: file_type = psiconv_sheet_file;
1157 psiconv_debug(config,lev+2,off,"Found a Sheet file");
1158 break;
1159 default: psiconv_warn(config,lev+2,off,"Found an unknown file type");
1160 psiconv_debug(config,lev+2,off,"Found ID %08x",applid->id);
1161 }
1162
1163 ERROR2:
1164 psiconv_free_application_id_section(applid);
1165 ERROR1:
1166 psiconv_free_section_table_section(table);
1167 if (status)
1168 *status = res;
1169 return file_type;
1170
1171 }
1172
1173 int psiconv_parse_object_display_section(const psiconv_config config,
1174 const psiconv_buffer buf,int lev,
1175 psiconv_u32 off, int *length,
1176 psiconv_object_display_section *result)
1177 {
1178 int res = 0;
1179 int len = 0;
1180 int leng;
1181 psiconv_u32 temp;
1182
1183 psiconv_progress(config,lev+1,off,"Going to read the Object Display Section");
1184 if (!(*result = malloc(sizeof(**result))))
1185 goto ERROR1;
1186
1187 psiconv_progress(config,lev+2,off+len,"Going to read the display as icon flag "
1188 "(expecting 0x00 or 0x01)");
1189 temp = psiconv_read_u8(config,buf,lev+2,off+len,&res);
1190 if (res)
1191 goto ERROR2;
1192 if (temp == 0x00) {
1193 (*result)->show_icon = psiconv_bool_true;
1194 psiconv_debug(config,lev+2,off+len,"Displayed as icon");
1195 } else if (temp == 0x01) {
1196 (*result)->show_icon = psiconv_bool_false;
1197 psiconv_debug(config,lev+2,off+len,"Displayed as full document");
1198 } else {
1199 psiconv_warn(config,lev+2,off+len,"Unknown Object Display Section Icon Flag");
1200 psiconv_debug(config,lev+2,off+len,"Icon flag found: %02x",temp);
1201 /* Improvise */
1202 (*result)->show_icon = (temp & 0x01?psiconv_bool_false:psiconv_bool_true);
1203 }
1204 len ++;
1205
1206 psiconv_progress(config,lev+2,off+len,"Going to read the display width");
1207 (*result)->width = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1208 if (res)
1209 goto ERROR2;
1210 psiconv_debug(config,lev+2,off+len,"Display width: %f cm",(*result)->width);
1211 len += leng;
1212
1213 psiconv_progress(config,lev+2,off+len,"Going to read the display height");
1214 (*result)->height = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1215 if (res)
1216 goto ERROR2;
1217 psiconv_debug(config,lev+2,off+len,"Display length: %f cm",(*result)->height);
1218 len += leng;
1219
1220 psiconv_progress(config,lev+2,off+len,"Going to read unknown long (%08x expected)",
1221 0);
1222 temp = psiconv_read_u32(config,buf,lev+2,off+len,&res);
1223 if (temp != 0) {
1224 psiconv_warn(config,lev+2,off+len,"Unknown Object Display Section final long");
1225 psiconv_debug(config,lev+2,off+len,"Long read: %08x",temp);
1226 }
1227 len += 4;
1228
1229 if (length)
1230 *length = len;
1231
1232 psiconv_progress(config,lev+1,off+len-1,"End of Object Display Section "
1233 "(total length: %08x",len);
1234 return res;
1235
1236 ERROR2:
1237 free(*result);
1238 ERROR1:
1239 psiconv_error(config,lev+1,off+len,"Reading of Object Display Section failed");
1240 if (length)
1241 *length=0;
1242 if (!res)
1243 return -PSICONV_E_NOMEM;
1244 else
1245 return res;
1246 }
1247
1248 int psiconv_parse_object_icon_section(const psiconv_config config,
1249 const psiconv_buffer buf,int lev,
1250 psiconv_u32 off, int *length,
1251 psiconv_object_icon_section *result)
1252 {
1253 int res = 0;
1254 int len = 0;
1255 int leng;
1256
1257 psiconv_progress(config,lev+1,off,"Going to read the Object Icon Section");
1258 if (!(*result = malloc(sizeof(**result))))
1259 goto ERROR1;
1260
1261 psiconv_progress(config,lev+2,off+len,"Going to read the icon name");
1262 (*result)->icon_name = psiconv_read_string(config,buf,lev+2,off+len,&leng,&res);
1263 if (res)
1264 goto ERROR2;
1265 psiconv_debug(config,lev+2,off+len,"Icon name: %s",(*result)->icon_name);
1266 len += leng;
1267
1268 psiconv_progress(config,lev+2,off+len,"Going to read the icon width");
1269 (*result)->icon_width = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1270 if (res)
1271 goto ERROR3;
1272 psiconv_debug(config,lev+2,off+len,"Icon width: %f cm",(*result)->icon_width);
1273 len += leng;
1274
1275 psiconv_progress(config,lev+2,off+len,"Going to read the icon height");
1276 (*result)->icon_height = psiconv_read_length(config,buf,lev+2,off+len,&leng,&res);
1277 if (res)
1278 goto ERROR3;
1279 psiconv_debug(config,lev+2,off+len,"Icon length: %f cm",(*result)->icon_height);
1280 len += leng;
1281
1282 if (length)
1283 *length = len;
1284
1285 psiconv_progress(config,lev+1,off+len-1,"End of Object Icon Section"
1286 "(total length: %08x",len);
1287 return res;
1288
1289 ERROR3:
1290 free((*result)->icon_name);
1291 ERROR2:
1292 free(*result);
1293 ERROR1:
1294 psiconv_error(config,lev+1,off+len,"Reading of Object Icon Section failed");
1295 if (length)
1296 *length=0;
1297 if (!res)
1298 return -PSICONV_E_NOMEM;
1299 else
1300 return res;
1301 }

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