/[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 217 - (show annotations)
Sun Feb 22 22:24:39 2004 UTC (20 years, 1 month ago) by frodo
File MIME type: text/plain
File size: 44466 byte(s)
(Frodo) UTF8 work (it should now actually work!)

  * Replaced psiconv_unicode_from_char with psiconv_unicode_read_char
    and removed psiconv_unicode_from_chars
  * Replaced psiconv_unicode_to_char with psiconv_unicode_write_char
    and removed psiconv_unicode_to_chars
  * Rewrote psiconv_parse_text_section to be more sane, easier to read
    and to work with the above updates
  * Updated all places where the psiconv_unicode_from/to_char calls
    were used
  * Updated psiconv.conf.eg to reflect the correct character set numbers
  * Fixed a buglet that made it impossible to set verbosity to 5 in config
  * Removed strange code in make_printable
  * Rewrote the ENCODING_PSION option in the psiconv program to work
    with the new definitions.

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

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