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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 104 - (hide annotations)
Wed Jan 31 00:57:17 2001 UTC (23 years, 2 months ago) by frodo
File MIME type: text/plain
File size: 24816 byte(s)
(Frodo) Applied Decsi's patch for wraps

1 frodo 2 /*
2     parse_layout.c - Part of psiconv, a PSION 5 file formats converter
3 frodo 63 Copyright (c) 1999, 2000 Frodo Looijaard <frodol@dds.nl>
4 frodo 2
5     This program is free software; you can redistribute it and/or modify
6     it under the terms of the GNU General Public License as published by
7     the Free Software Foundation; either version 2 of the License, or
8     (at your option) any later version.
9    
10     This program is distributed in the hope that it will be useful,
11     but WITHOUT ANY WARRANTY; without even the implied warranty of
12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13     GNU General Public License for more details.
14    
15     You should have received a copy of the GNU General Public License
16     along with this program; if not, write to the Free Software
17     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18     */
19    
20     #include "config.h"
21 frodo 71 #include "compat.h"
22    
23 frodo 2 #include <stdlib.h>
24     #include <math.h>
25    
26     #include "parse_routines.h"
27 frodo 71 #include "error.h"
28 frodo 2
29     int psiconv_parse_color(const psiconv_buffer buf, int lev, psiconv_u32 off,
30     int *length, psiconv_color *result)
31     {
32     int res = 0;
33     int len = 0;
34    
35     psiconv_progress(lev+1,off,"Going to parse color");
36 frodo 64 if (!(*result = malloc(sizeof(**result))))
37     goto ERROR1;
38 frodo 2
39 frodo 64 (*result)->red = psiconv_read_u8(buf,lev+2,off+len,&res);
40     if (res)
41     goto ERROR2;
42     (*result)->green = psiconv_read_u8(buf,lev+2,off+len+1,&res);
43     if (res)
44     goto ERROR2;
45     (*result)->blue = psiconv_read_u8(buf,lev+2,off+len+2,&res);
46     if (res)
47     goto ERROR2;
48 frodo 2 len += 3;
49    
50     psiconv_debug(lev+2,off,"Color: red %02x, green %02x, blue %02x",
51     (*result)->red, (*result)->green, (*result)->blue);
52     if (length)
53     *length = len;
54    
55     psiconv_progress(lev+1,off+len-1,"End of color (total length: %08x)",len);
56 frodo 64 return 0;
57    
58     ERROR2:
59     free(*result);
60     ERROR1:
61     psiconv_warn(lev+1,off,"Reading of Color failed");
62     if (length)
63     *length = 0;
64     if (res == 0)
65     return -PSICONV_E_NOMEM;
66     else
67     return res;
68 frodo 2 }
69    
70    
71    
72     int psiconv_parse_font(const psiconv_buffer buf, int lev, psiconv_u32 off,
73     int *length, psiconv_font *result)
74     {
75     int res = 0;
76     int strlength,i;
77     char *str_copy;
78     int len;
79    
80     psiconv_progress(lev+1,off,"Going to parse font");
81 frodo 64 if (!(*result = malloc(sizeof(**result))))
82     goto ERROR1;
83 frodo 2
84 frodo 64 strlength = psiconv_read_u8(buf,lev+2,off,&res);
85     if (res)
86     goto ERROR2;
87     if (!((*result)->name = malloc(strlength))) {
88     goto ERROR2;
89     }
90     for (i = 0; (i < strlength-1) && !res; i++)
91     (*result)->name[i] = psiconv_read_u8(buf,lev+2,off + 1 + i,&res);
92     if (res)
93     goto ERROR3;
94 frodo 2 (*result)->name[strlength-1] = 0;
95 frodo 64 (*result)->screenfont = psiconv_read_u8(buf,lev+2,off + strlength,&res);
96     if (res)
97     goto ERROR3;
98 frodo 2
99 frodo 64 if (!(str_copy = psiconv_make_printable((*result)->name)))
100     goto ERROR3;
101    
102 frodo 2 psiconv_debug(lev+2,off+1,"Found font `%s', displayed with screen font %02x",
103     str_copy,(*result)->screenfont);
104     free(str_copy);
105     len = strlength + 1;
106     if (length)
107     *length = len;
108    
109     psiconv_progress(lev+1,off + len - 1,"End of font (total length: %08x)",len);
110 frodo 64 return 0;
111    
112     ERROR3:
113     free ((*result)->name);
114     ERROR2:
115     free (*result);
116     ERROR1:
117     psiconv_warn(lev+1,off,"Reading of Font failed");
118     if (length)
119     *length = 0;
120     if (!res)
121     return -PSICONV_E_NOMEM;
122     else
123     return res;
124 frodo 2 }
125    
126     int psiconv_parse_border(const psiconv_buffer buf,int lev,psiconv_u32 off,
127     int *length, psiconv_border *result)
128     {
129     int res = 0;
130     int len = 0;
131     psiconv_u32 temp;
132     int leng;
133    
134     psiconv_progress(lev+1,off,"Going to parse border data");
135 frodo 64 if (!(*result = malloc(sizeof(**result)))) {
136     goto ERROR1;
137     }
138 frodo 2
139     psiconv_progress(lev+2,off+len,"Going to read border kind");
140 frodo 64 temp = psiconv_read_u8(buf,lev+2,off+len,&res);
141     if (res)
142     goto ERROR2;
143 frodo 2 if (temp == 0x00)
144     (*result)->kind = psiconv_border_none;
145     else if (temp == 0x01)
146     (*result)->kind = psiconv_border_solid;
147     else if (temp == 0x02)
148     (*result)->kind = psiconv_border_double;
149     else if (temp == 0x03)
150     (*result)->kind = psiconv_border_dotted;
151     else if (temp == 0x04)
152 frodo 67 (*result)->kind = psiconv_border_dashed;
153 frodo 2 else if (temp == 0x05)
154 frodo 67 (*result)->kind = psiconv_border_dotdashed;
155 frodo 2 else if (temp == 0x06)
156 frodo 67 (*result)->kind = psiconv_border_dotdotdashed;
157 frodo 2 else {
158     psiconv_warn(lev+2,off,"Unknown border kind (defaults to `none')");
159     (*result)->kind = psiconv_border_none;
160     }
161     psiconv_debug(lev+2,off+len,"Kind: %02x",temp);
162     len ++;
163    
164     psiconv_progress(lev+2,off+len,"Going to read border thickness");
165 frodo 64 (*result)->thickness = psiconv_read_size(buf,lev+2,off+len,&leng,&res);
166     if (res)
167     goto ERROR2;
168 frodo 84 #if 0
169     /* This seems no longer necessary to test? */
170 frodo 2 if (((*result)->kind != psiconv_border_solid) &&
171     ((*result)->kind != psiconv_border_double) &&
172     ((*result)->thickness != 0.0) &&
173     (fabs((*result)->thickness - 1/20) >= 1/1000)) {
174     psiconv_warn(lev+2,off,
175     "Border thickness specified for unlikely border type");
176     }
177 frodo 84 #endif
178 frodo 2 psiconv_debug(lev+2,off+len,"Thickness: %f",(*result)->thickness);
179     len += leng;
180    
181     psiconv_progress(lev+2,off+len,"Going to read the border color");
182 frodo 64 if ((psiconv_parse_color(buf,lev+2,off+len,&leng,&(*result)->color)))
183     goto ERROR2;
184 frodo 2 len += leng;
185    
186     psiconv_progress(lev+2,off+len,"Going to read the final unknown byte "
187 frodo 84 "(0x00 or 0x01 expected)");
188 frodo 64 temp = psiconv_read_u8(buf,lev+2,off + len,&res);
189     if (res)
190     goto ERROR3;
191 frodo 84 if ((temp != 0x01) && (temp != 0x00)) {
192 frodo 2 psiconv_warn(lev+2,off,"Unknown last byte in border specification");
193 frodo 84 psiconv_debug(lev+2,off+len, "Last byte: read %02x, expected %02x or %02x",
194     temp,0x00,0x01);
195 frodo 2 }
196     len ++;
197    
198     if (length)
199     *length = len;
200    
201     psiconv_progress(lev+1,off + len - 1,
202     "End of border (total length: %08x)",len);
203    
204 frodo 64 return 0;
205    
206     ERROR3:
207     psiconv_free_color((*result)->color);
208     ERROR2:
209     free (result);
210     ERROR1:
211     psiconv_warn(lev+1,off,"Reading of Border failed");
212     if (length)
213     *length = 0;
214     if (!res)
215     return -PSICONV_E_NOMEM;
216     else
217     return res;
218 frodo 2 }
219    
220     int psiconv_parse_bullet(const psiconv_buffer buf,int lev,psiconv_u32 off,
221     int *length, psiconv_bullet *result)
222     {
223     int res = 0;
224     int len = 0;
225     int leng;
226     int bullet_length;
227    
228 frodo 64 if (!(*result = malloc(sizeof(**result))))
229     goto ERROR1;
230 frodo 2 (*result)->on = psiconv_bool_true;
231    
232     psiconv_progress(lev+1,off,"Going to parse bullet data");
233     psiconv_progress(lev+2,off+len,"Going to read bullet length");
234 frodo 64 bullet_length = psiconv_read_u8(buf,lev+2,off+len,&res);
235     if (res)
236     goto ERROR2;
237 frodo 2 psiconv_debug(lev+2,off+len,"Length: %02x",bullet_length);
238     len ++;
239    
240     psiconv_progress(lev+2,off+len,"Going to read bullet font size");
241 frodo 64 (*result)->font_size = psiconv_read_size(buf,lev+2,off+len, &leng,&res);
242     if (res)
243     goto ERROR2;
244 frodo 2 len +=leng;
245    
246     psiconv_progress(lev+2,off+len,"Going to read bullet character");
247 frodo 64 (*result)->character = psiconv_read_u8(buf,lev+2,off+len,&res);
248     if (res)
249     goto ERROR2;
250 frodo 2 psiconv_debug(lev+2,off+len,"Character: %02x",(*result)->character);
251     len ++;
252    
253     psiconv_progress(lev+2,off+len,"Going to read indent on/off");
254 frodo 64 if ((res = psiconv_parse_bool(buf,lev+2,off+len,&leng,&(*result)->indent)))
255     goto ERROR2;
256 frodo 2 psiconv_debug(lev+2,off+len,"Indent on: %02x",(*result)->indent);
257     len += leng;
258    
259     psiconv_progress(lev+2,off+len,"Going to read bullet color");
260 frodo 64 if ((res = psiconv_parse_color(buf,lev+2,off+len,&leng,&(*result)->color)))
261     goto ERROR2;
262 frodo 2 len += leng;
263    
264     psiconv_progress(lev+2,off+len,"Going to read bullet font");
265 frodo 64 if ((res = psiconv_parse_font(buf,lev+2,off+len,&leng,&(*result)->font)))
266     goto ERROR3;
267 frodo 2 len += leng;
268    
269     if (len != bullet_length + 1) {
270     psiconv_warn(lev+2,off,"Bullet data structure length mismatch");
271     psiconv_debug(lev+2,off,"Length: specified %02x, found %02x",
272     bullet_length,len-1);
273     }
274    
275     psiconv_progress(lev+1,off + len - 1,
276     "End of bullet data (total length: %08x)",len);
277    
278     if (length)
279     *length = len;
280 frodo 65 return 0;
281 frodo 64
282     ERROR3:
283     psiconv_free_color((*result)->color);
284     ERROR2:
285     free (result);
286     ERROR1:
287     psiconv_warn(lev+1,off,"Reading of Bullet failed");
288     if (length)
289     *length = 0;
290     if (!res)
291     return -PSICONV_E_NOMEM;
292     else
293     return res;
294 frodo 2 }
295    
296     int psiconv_parse_tab(const psiconv_buffer buf, int lev, psiconv_u32 off,
297     int *length, psiconv_tab *result)
298     {
299     int res = 0;
300     int len = 0;
301     int leng;
302     psiconv_u8 temp;
303    
304     psiconv_progress(lev+1,off,"Going to parse tab");
305 frodo 64 if (!(*result = malloc(sizeof(**result))))
306     goto ERROR1;
307 frodo 2
308     psiconv_progress(lev+2,off,"Going to read tab location");
309 frodo 64 (*result)->location = psiconv_read_length(buf,lev+2,off+len,&leng,&res);
310     if (res)
311     goto ERROR2;
312 frodo 2 len += leng;
313    
314     psiconv_progress(lev+2,off+len,"Going to read the tab kind");
315 frodo 64 temp = psiconv_read_u8(buf,lev+2,off+len,&res);
316     if (res)
317     goto ERROR2;
318 frodo 2 if (temp == 1)
319     (*result)->kind = psiconv_tab_left;
320     else if (temp == 2)
321     (*result)->kind = psiconv_tab_centre;
322     else if (temp == 3)
323     (*result)->kind = psiconv_tab_right;
324     else {
325     psiconv_warn(lev+2,off+len,"Unknown tab kind argument");
326     psiconv_debug(lev+2,off+len,"Kind found: %02x (defaulted to left tab)",
327     temp);
328     (*result)->kind = psiconv_tab_left;
329     }
330     psiconv_debug(lev+2,off+len,"Kind: %02x",temp);
331     len ++;
332    
333     if (length)
334     *length = len;
335    
336     psiconv_progress(lev+1,off+len-1,"End of tab (total length: %08x)",len);
337 frodo 64 return 0;
338 frodo 2
339 frodo 64 ERROR2:
340     free (result);
341     ERROR1:
342     psiconv_warn(lev+1,off,"Reading of Tab failed");
343     if (length)
344     *length = 0;
345     if (!res)
346     return -PSICONV_E_NOMEM;
347     else
348     return res;
349 frodo 2 }
350    
351     int psiconv_parse_paragraph_layout_list(const psiconv_buffer buf, int lev,
352     psiconv_u32 off, int *length,
353     psiconv_paragraph_layout result)
354     {
355     int res=0;
356     int len=0;
357     int list_length,leng,nr;
358     psiconv_u8 id;
359     psiconv_u32 temp;
360 frodo 64 psiconv_tab temp_tab;
361     psiconv_color temp_color;
362     psiconv_border temp_border;
363     psiconv_bullet temp_bullet;
364 frodo 2
365     psiconv_progress(lev+1,off,"Going to read paragraph layout list");
366    
367     psiconv_progress(lev+2,off,"Going to read the list length");
368 frodo 64 list_length = psiconv_read_u32(buf,lev+2,off + len,&res);
369     if (res)
370     goto ERROR1;
371 frodo 2 psiconv_debug(lev+2,off,"Length in bytes: %08x",list_length);
372     len += 4;
373    
374     nr = 0;
375     while(len - 4 < list_length) {
376     psiconv_progress(lev+2,off+len,"Going to read element %d",nr);
377     psiconv_progress(lev+3,off+len,"Going to read the element id");
378 frodo 64 id = psiconv_read_u8(buf,lev+2,off+len,&res);
379     if (res)
380     goto ERROR1;
381 frodo 2 psiconv_debug(lev+3,off+len,"Id: %02x",id);
382     len ++;
383     switch(id) {
384     case 0x01:
385     psiconv_progress(lev+3,off+len,"Going to read background color");
386 frodo 64 if ((res = psiconv_parse_color(buf,lev+3,off+len,&leng,&temp_color)))
387     goto ERROR1;
388 frodo 2 psiconv_free_color(result->back_color);
389 frodo 64 result->back_color = temp_color;
390 frodo 2 len += leng;
391     break;
392     case 0x02:
393     psiconv_progress(lev+3,off+len ,"Going to read indent left");
394 frodo 64 result->indent_left = psiconv_read_length(buf,lev+3,off+len,&leng,&res);
395     if (res)
396     goto ERROR1;
397 frodo 2 len += leng;
398     break;
399     case 0x03:
400     psiconv_progress(lev+3,off+len,"Going to read indent right");
401 frodo 64 result->indent_right = psiconv_read_length(buf,lev+2,off+len,&leng,
402     &res);
403     if (res)
404     goto ERROR1;
405 frodo 2 len += leng;
406     break;
407     case 0x04:
408     psiconv_progress(lev+3,off+len,"Going to read indent left first line");
409 frodo 64 result->indent_first = psiconv_read_length(buf,lev+2,off+len, &leng,
410     &res);
411     if (res)
412     goto ERROR1;
413 frodo 2 len += leng;
414     break;
415     case 0x05:
416     psiconv_progress(lev+3,off+len,"Going to read horizontal justify");
417 frodo 64 temp = psiconv_read_u8(buf,lev+3,off+len,&res);
418     if (res)
419     goto ERROR1;
420 frodo 2 if (temp == 0x00)
421     result->justify_hor = psiconv_justify_left;
422     else if (temp == 0x01)
423     result->justify_hor = psiconv_justify_centre;
424     else if (temp == 0x02)
425     result->justify_hor = psiconv_justify_right;
426     else if (temp == 0x03)
427     result->justify_hor = psiconv_justify_full;
428     else {
429     psiconv_warn(lev+3,off+len, "Unknown horizontal justify argument "
430     "in paragraph layout codes list");
431 frodo 64 result->justify_hor = psiconv_justify_left;
432 frodo 2 }
433     psiconv_debug(lev+3,off+len,"Justify: %02x",temp);
434     len ++;
435     break;
436     case 0x06:
437     psiconv_progress(lev+3,off+len,"Going to read vertical justify");
438 frodo 64 temp = psiconv_read_u8(buf,lev+3,off+len,&res);
439     if (res)
440     goto ERROR1;
441 frodo 2 if (temp == 0x00)
442     result->justify_ver = psiconv_justify_top;
443     else if (temp == 0x01)
444     result->justify_ver = psiconv_justify_middle;
445     else if (temp == 0x02)
446     result->justify_ver = psiconv_justify_bottom;
447     else {
448     psiconv_warn(lev+3,off+len, "Unknown vertical justify argument "
449     "in paragraph layout codes list");
450 frodo 64 result->justify_ver = psiconv_justify_bottom;
451 frodo 2 }
452     psiconv_debug(lev+3,off+len,"Justify: %02x",temp);
453     len ++;
454     case 0x07:
455 frodo 67 psiconv_progress(lev+3,off+len,"Going to read linespacing distance");
456     result->linespacing = psiconv_read_size(buf,lev+3,off+len,&leng,&res);
457 frodo 64 if (res)
458     goto ERROR1;
459 frodo 2 len += leng;
460     break;
461     case 0x08:
462 frodo 67 psiconv_progress(lev+3,off+len,"Going to read linespacing exact");
463 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
464 frodo 67 &result->linespacing_exact)))
465 frodo 64 goto ERROR1;
466 frodo 2 len += leng;
467     break;
468     case 0x09:
469     psiconv_progress(lev+3,off+len,"Going to read top space");
470 frodo 67 result->space_above = psiconv_read_size(buf,lev+3,off+len,&leng,&res);
471 frodo 64 if (res)
472     goto ERROR1;
473 frodo 2 len += leng;
474     break;
475     case 0x0a:
476     psiconv_progress(lev+3,off+len,"Going to read bottom space");
477 frodo 67 result->space_below = psiconv_read_size(buf,lev+3,off+len,&leng,&res);
478 frodo 64 if (res)
479     goto ERROR1;
480 frodo 2 len += leng;
481     break;
482     case 0x0b:
483     psiconv_progress(lev+3,off+len,"Going to read on one page");
484 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
485 frodo 67 &result->keep_together)))
486 frodo 64 goto ERROR1;
487 frodo 2 len += leng;
488     break;
489     case 0x0c:
490     psiconv_progress(lev+3,off+len,"Going to read together with");
491 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
492 frodo 67 &result->keep_with_next)))
493 frodo 64 goto ERROR1;
494 frodo 2 len += leng;
495     break;
496     case 0x0d:
497     psiconv_progress(lev+3,off+len,"Going to read on next page");
498 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
499     &result->on_next_page)))
500     goto ERROR1;
501 frodo 2 len += leng;
502     break;
503     case 0x0e:
504     psiconv_progress(lev+3,off+len,"Going to read no widow protection");
505 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
506     &result->no_widow_protection)))
507     goto ERROR1;
508 frodo 2 len += leng;
509     break;
510 frodo 104 case 0x0f:
511     psiconv_progress(lev+3,off+len,"Going to read wrap to fit cell limits");
512     if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
513     &result->wrap_to_fit_cell)))
514     goto ERROR1;
515     len += leng;
516     break;
517 frodo 2 case 0x10:
518     psiconv_progress(lev+3,off+len,"Going to read border distance to text");
519     result->border_distance = psiconv_read_length(buf,lev+3,
520 frodo 64 off+len,&leng,&res);
521     if (res)
522     goto ERROR1;
523 frodo 2 len += leng;
524     break;
525     case 0x11:
526     psiconv_progress(lev+3,off+len,"Going to read top border");
527 frodo 64 if ((res = psiconv_parse_border(buf,lev+3,off+len,&leng,&temp_border)))
528     goto ERROR1;
529 frodo 2 psiconv_free_border(result->top_border);
530 frodo 64 result->top_border = temp_border;
531 frodo 2 len += leng;
532     break;
533     case 0x12:
534     psiconv_progress(lev+3,off+len,"Going to read bottom border");
535 frodo 64 if ((res = psiconv_parse_border(buf,lev+3,off+len,&leng,&temp_border)))
536     goto ERROR1;
537 frodo 2 psiconv_free_border(result->bottom_border);
538 frodo 64 result->bottom_border = temp_border;
539 frodo 2 len += leng;
540     break;
541     case 0x13:
542     psiconv_progress(lev+3,off+len,"Going to read left border");
543 frodo 64 if ((res = psiconv_parse_border(buf,lev+3,off+len,&leng,&temp_border)))
544     goto ERROR1;
545 frodo 2 psiconv_free_border(result->left_border);
546 frodo 64 result->left_border = temp_border;
547 frodo 2 len += leng;
548     break;
549     case 0x14:
550     psiconv_progress(lev+3,off+len,"Going to read right border");
551 frodo 64 if ((res = psiconv_parse_border(buf,lev+3,off+len,&leng,&temp_border)))
552     goto ERROR1;
553 frodo 2 psiconv_free_border(result->right_border);
554 frodo 64 result->right_border = temp_border;
555 frodo 2 len += leng;
556     break;
557     case 0x15:
558     psiconv_progress(lev+3,off+len,"Going to read bullet");
559 frodo 65 if ((res = psiconv_parse_bullet(buf,lev+3,off+len,&leng,&temp_bullet)))
560 frodo 64 goto ERROR1;
561 frodo 2 psiconv_free_bullet(result->bullet);
562 frodo 64 result->bullet = temp_bullet;
563 frodo 2 len += leng;
564     break;
565     case 0x16:
566     psiconv_progress(lev+3,off+len,"Going to read standard tabs");
567 frodo 64 result->tabs->normal = psiconv_read_length(buf,lev+3,off+len,&leng,
568     &res);
569     if (res)
570     goto ERROR1;
571 frodo 2 len += leng;
572     break;
573     case 0x17:
574     psiconv_progress(lev+3,off+len,"Going to read extra tab");
575 frodo 64 if ((res = psiconv_parse_tab(buf,lev+3,off+len,&leng,&temp_tab)))
576     goto ERROR1;
577     if ((res = psiconv_list_add(result->tabs->extras,temp_tab))) {
578     psiconv_free_tab(temp_tab);
579     goto ERROR1;
580     }
581 frodo 2 len += leng;
582     break;
583     default:
584     psiconv_warn(lev+3,off+len,
585     "Unknown code in paragraph layout codes list");
586     psiconv_debug(lev+3,off+len,"Code: %02x",id);
587     len ++;
588     break;
589     }
590     nr ++;
591     }
592    
593     if (len - 4 != list_length) {
594     psiconv_warn(lev+2,off+len,
595     "Read past end of paragraph layout codes list. I probably lost track"
596     "somewhere!");
597     psiconv_debug(lev+2,off+len,"Read %d characters instead of %d",
598     len-4,list_length);
599 frodo 64 res = PSICONV_E_PARSE;
600     goto ERROR1;
601 frodo 2 }
602    
603     len = list_length + 4;
604    
605     psiconv_progress(lev+1,off+len,
606     "End of paragraph layout list (total length: %08x)",len);
607    
608     if (length)
609     *length = len;
610 frodo 64 return 0;
611    
612     ERROR1:
613     psiconv_warn(lev+1,off,"Reading of paragraph_layout_list failed");
614     if (length)
615     *length = 0;
616     if (!res)
617     return -PSICONV_E_NOMEM;
618     else
619     return res;
620 frodo 2 }
621    
622     int psiconv_parse_character_layout_list(const psiconv_buffer buf, int lev,
623     psiconv_u32 off, int *length,
624     psiconv_character_layout result)
625     {
626     int res=0;
627     int len=0;
628     int list_length,leng,nr;
629     psiconv_u8 id;
630     psiconv_u32 temp;
631 frodo 64 psiconv_color temp_color;
632     psiconv_font temp_font;
633 frodo 2
634     psiconv_progress(lev+1,off,"Going to read character layout codes");
635    
636     psiconv_progress(lev+2,off,"Going to read the list length");
637 frodo 64 list_length = psiconv_read_u32(buf,lev+2,off + len,&res);
638     if (res)
639     goto ERROR1;
640 frodo 2 psiconv_debug(lev+2,off,"Length in bytes: %08x",list_length);
641     len += 4;
642    
643     nr = 0;
644     while(len-4 < list_length) {
645     psiconv_progress(lev+2,off+len,"Going to read element %d",nr);
646     psiconv_progress(lev+3,off+len,"Going to read the element id");
647 frodo 64 id = psiconv_read_u8(buf,lev+2,off+len,&res);
648     if (res)
649     goto ERROR1;
650 frodo 2 psiconv_debug(lev+3,off+len,"Id: %02x",id);
651     len ++;
652     switch(id) {
653 frodo 86 case 0x18:
654     psiconv_progress(lev+3,off+len,"Going to skip an unknown setting");
655     len ++;
656     break;
657 frodo 2 case 0x19:
658     psiconv_progress(lev+3,off+len,"Going to read text color");
659 frodo 64 if ((res = psiconv_parse_color(buf,lev+3,off+len, &leng,&temp_color)))
660     goto ERROR1;
661 frodo 2 psiconv_free_color(result->color);
662 frodo 64 result->color = temp_color;
663 frodo 2 len += leng;
664     break;
665     case 0x1a:
666     psiconv_progress(lev+3,off+len,"Going to read background color (?)");
667 frodo 64 if ((res = psiconv_parse_color(buf,lev+2,off+len, &leng,&temp_color)))
668     goto ERROR1;
669 frodo 2 psiconv_free_color(result->back_color);
670 frodo 64 result->back_color = temp_color;
671 frodo 2 len += leng;
672     break;
673 frodo 86 case 0x1b:
674     psiconv_progress(lev+3,off+len,"Going to skip an unknown setting");
675     len ++;
676     break;
677 frodo 2 case 0x1c:
678     psiconv_progress(lev+3,off+len,"Going to read font size");
679 frodo 64 result->font_size = psiconv_read_size(buf,lev+3,off+len,&leng,&res);
680     if (res)
681     goto ERROR1;
682 frodo 2 len += leng;
683     break;
684     case 0x1d:
685     psiconv_progress(lev+3,off+len,"Going to read italic");
686 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,&result->italic)))
687     goto ERROR1;
688 frodo 2 len += leng;
689     break;
690     case 0x1e:
691     psiconv_progress(lev+3,off+len,"Going to read bold");
692 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,&result->bold)))
693     goto ERROR1;
694 frodo 2 len += leng;
695     break;
696     case 0x1f:
697     psiconv_progress(lev+3,off+len,"Going to read super_sub");
698 frodo 64 temp = psiconv_read_u8(buf,lev+3,off+len,&res);
699     if (res)
700     goto ERROR1;
701 frodo 2 if (temp == 0x00)
702     result->super_sub = psiconv_normalscript;
703     else if (temp == 0x01)
704     result->super_sub = psiconv_superscript;
705     else if (temp == 0x02)
706     result->super_sub = psiconv_subscript;
707     else {
708     psiconv_warn(lev+3,off+len,
709     "Unknown super_sub argument in character layout codes list");
710     }
711     psiconv_debug(lev+3,off+len,"Super_sub: %02x",temp);
712     len ++;
713     break;
714     case 0x20:
715     psiconv_progress(lev+3,off+len,"Going to read underline");
716 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
717     &result->underline)))
718     goto ERROR1;
719 frodo 2 len += leng;
720     break;
721     case 0x21:
722 frodo 67 psiconv_progress(lev+3,off+len,"Going to read strikethrough");
723 frodo 64 if ((res = psiconv_parse_bool(buf,lev+3,off+len,&leng,
724 frodo 67 &result->strikethrough)))
725 frodo 64 goto ERROR1;
726 frodo 2 len += leng;
727     break;
728     case 0x22:
729     psiconv_progress(lev+3,off+len,"Going to read font");
730 frodo 64 if ((res = psiconv_parse_font(buf,lev+3,off+len, &leng, &temp_font)))
731     goto ERROR1;
732 frodo 2 psiconv_free_font(result->font);
733 frodo 64 result->font = temp_font;
734 frodo 2 len += leng;
735     break;
736 frodo 86 case 0x23:
737     psiconv_progress(lev+3,off+len,"Going to skip an unknown setting");
738     len ++;
739     break;
740 frodo 27 case 0x24:
741     psiconv_progress(lev+3,off+len,
742     "Going to read unknown code 0x24 (%02x expected)", 0);
743 frodo 64 temp = psiconv_read_u8(buf,lev+3,off+len,&res);
744     if (res)
745     goto ERROR1;
746 frodo 27 if (temp != 0) {
747     psiconv_warn(lev+3,off+len,
748     "Unknown code 0x24 value != 0x0 (0x%02x)", temp);
749     }
750     len ++;
751     break;
752 frodo 2 default:
753     psiconv_warn(lev+3,off+len,"Unknown code in character layout list");
754     psiconv_debug(lev+3,off+len,"Code: %02x",id);
755     len ++;
756     break;
757     }
758     nr ++;
759     }
760    
761     if (len - 4 != list_length) {
762     psiconv_warn(lev+2,off+len,
763     "Read past end of character layout codes list. I probably lost track"
764     "somewhere!");
765     psiconv_debug(lev+2,off+len,"Read %d characters instead of %d",
766     len-4,list_length);
767 frodo 64 res = PSICONV_E_PARSE;
768     goto ERROR1;
769 frodo 2 }
770    
771     len = list_length + 4;
772    
773     psiconv_progress(lev+1,off+len,
774     "End of character layout list (total length: %08x)",len);
775    
776     if (length)
777     *length = len;
778     return res;
779 frodo 64
780     ERROR1:
781     psiconv_warn(lev+1,off,"Reading of character_layout_list failed");
782     if (length)
783     *length = 0;
784     if (!res)
785     return -PSICONV_E_NOMEM;
786     else
787     return res;
788 frodo 2 }

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