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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 142 - (show annotations)
Tue Jan 29 18:38:38 2002 UTC (22 years, 2 months ago) by frodo
File MIME type: text/plain
File size: 14079 byte(s)
(Frodo) DMALLOC support

1 /*
2 parse_word.c - Part of psiconv, a PSION 5 file formats converter
3 Copyright (c) 1999, 2000 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
23 #include <stdlib.h>
24
25 #include "parse_routines.h"
26 #include "error.h"
27
28 #ifdef DMALLOC
29 #include <dmalloc.h>
30 #endif
31
32 int psiconv_parse_word_status_section(const psiconv_buffer buf, int lev,
33 psiconv_u32 off, int *length,
34 psiconv_word_status_section *result)
35 {
36 int res=0;
37 int len=0;
38 psiconv_u32 temp;
39 int leng;
40
41 psiconv_progress(lev+1,off,"Going to read the word status section");
42 if (!(*result = malloc(sizeof(**result))))
43 goto ERROR1;
44
45 psiconv_progress(lev+2,off+len,
46 "Going to read the initial byte (%02x expected)",0x02);
47 temp = psiconv_read_u8(buf,lev+2,off+len,&res);
48 if (res)
49 goto ERROR2;
50 if (temp != 0x02) {
51 psiconv_warn(lev+2,off+len,
52 "Word status section initial byte unknown value (ignored)");
53 psiconv_debug(lev+2,off+len,"Initial byte: %02x",temp);
54 }
55 len ++;
56
57 psiconv_progress(lev+2,off+len,
58 "Going to read the first byte of display flags");
59 temp = psiconv_read_u8(buf,lev+2,off+len,&res);
60 if (res)
61 goto ERROR2;
62
63 (*result)->show_tabs = temp&0x01 ? psiconv_bool_true : psiconv_bool_false;
64 psiconv_debug(lev+2,off+len,"Show tabs: %02x",(*result)->show_tabs);
65 (*result)->show_spaces = temp&0x02 ? psiconv_bool_true : psiconv_bool_false;
66 psiconv_debug(lev+2,off+len,"Show spaces: %02x",(*result)->show_spaces);
67 (*result)->show_paragraph_ends = temp &0x04 ? psiconv_bool_true :
68 psiconv_bool_false;
69 psiconv_debug(lev+2,off+len,"Show paragraph ends: %02x",
70 (*result)->show_paragraph_ends);
71 (*result)->show_line_breaks = temp & 0x08 ? psiconv_bool_true :
72 psiconv_bool_false;
73 psiconv_debug(lev+2,off+len,"Show line breaks: %02x",
74 (*result)->show_line_breaks);
75 (*result)->show_hard_minus = temp & 0x20 ? psiconv_bool_true :
76 psiconv_bool_false;
77 psiconv_debug(lev+2,off+len,"Show hard minus: %02x",
78 (*result)->show_hard_minus);
79 (*result)->show_hard_space = temp & 0x40 ? psiconv_bool_true :
80 psiconv_bool_false;
81 psiconv_debug(lev+2,off+len,"Show hard space: %02x",
82 (*result)->show_hard_space);
83 if (temp & 0x90) {
84 psiconv_warn(lev+2,off+len,"Word status section first byte of display "
85 "flags contains unknown flags (ignored)");
86 psiconv_debug(lev+2,off+len,"Unknown flags: %02x",temp & 0x90);
87 }
88 len ++;
89
90 psiconv_progress(lev+2,off+len,"Going to read second byte of display flags");
91 temp = psiconv_read_u8(buf,lev+2,off+len,&res);
92 if (res)
93 goto ERROR2;
94
95 (*result)->show_full_pictures = temp & 0x01 ? psiconv_bool_true :
96 psiconv_bool_false;
97 psiconv_debug(lev+2,off+len,"Show full pictures: %02x",
98 (*result)->show_full_pictures);
99 (*result)->show_full_graphs = temp & 0x02 ? psiconv_bool_true :
100 psiconv_bool_false;
101 psiconv_debug(lev+2,off+len,"Show full graphs: %02x",
102 (*result)->show_full_graphs);
103 if (temp & 0xfc) {
104 psiconv_warn(lev+2,off+len,"Word status section second byte of display "
105 "flags contains unknown flags (ignored)");
106 psiconv_debug(lev+2,off+len,"Unknown flags: %02x",temp & 0xfc);
107 }
108 len ++;
109
110 psiconv_progress(lev+2,off+len,"Going to read top toolbar setting");
111 if ((res = psiconv_parse_bool(buf,lev+2,off+len,&leng,
112 &(*result)->show_top_toolbar)))
113 goto ERROR2;
114 len += leng;
115
116 psiconv_progress(lev+2,off+len,"Going to read side toolbar setting");
117 if ((res = psiconv_parse_bool(buf,lev+2,off+len,&leng,
118 &(*result)->show_side_toolbar)))
119 goto ERROR2;
120 len += leng;
121
122 psiconv_progress(lev+2,off+len,"Going to read operational flags");
123 temp = psiconv_read_u8(buf,lev+2,off+len,&res);
124 if (res)
125 goto ERROR2;
126 (*result)->fit_lines_to_screen = temp & 0x08 ? psiconv_bool_true :
127 psiconv_bool_false;
128 psiconv_debug(lev+2,off+len,"Fit lines to screen: %02x",
129 (*result)->fit_lines_to_screen);
130 if (temp & 0xf7) {
131 psiconv_warn(lev+2,off+len,"Word status section operational flags "
132 "contains unknown flags (ignored)");
133 psiconv_debug(lev+2,off+len,"Unknown flags: %02x",temp & 0xfc);
134 }
135 len ++;
136
137 psiconv_progress(lev+2,off+len,"Going to read cursor position");
138 (*result)->cursor_position = psiconv_read_u32(buf,lev+2,off + len,&res);
139 if (res)
140 goto ERROR2;
141 psiconv_debug(lev+2,off+len,"Cursor position: %08x",
142 (*result)->cursor_position);
143 len += 0x04;
144
145 psiconv_progress(lev+2,off+len,"Going to read display size");
146 (*result)->display_size = psiconv_read_u32(buf,lev+2,off + len,&res);
147 if (res)
148 goto ERROR2;
149 psiconv_debug(lev+2,off+len,"Display size: %08x",
150 (*result)->display_size);
151 len += 0x04;
152
153 if (length)
154 *length = len;
155
156 psiconv_progress(lev,off+len-1,
157 "End of word status section (total length: %08x)", len);
158 return 0;
159
160 ERROR2:
161 free (*result);
162 ERROR1:
163 psiconv_warn(lev+1,off,"Reading of Word Status Section failed");
164 if (length)
165 *length = 0;
166 if (!res)
167 return -PSICONV_E_NOMEM;
168 else
169 return res;
170 }
171
172 int psiconv_parse_word_styles_section(const psiconv_buffer buf, int lev,
173 psiconv_u32 off, int *length,
174 psiconv_word_styles_section *result)
175 {
176 int res=0;
177 int len=0;
178 int leng,i,nr,j;
179 psiconv_word_style style;
180 psiconv_u32 temp;
181
182 psiconv_progress(lev+1,off,"Going to read the word styles section");
183 if (!(*result = malloc(sizeof(**result))))
184 goto ERROR1;
185
186 psiconv_progress(lev+2,off+len,"Going to read style normal");
187 if (!(style = malloc(sizeof(*style))))
188 goto ERROR2;
189 style->name = NULL;
190 if (!(style->paragraph = psiconv_basic_paragraph_layout()))
191 goto ERROR2_1;
192 psiconv_progress(lev+3,off+len,"Going to read the paragraph codes");
193 if ((res = psiconv_parse_paragraph_layout_list(buf,lev+3,off+len,&leng,
194 style->paragraph)))
195 goto ERROR2_2;
196 len += leng;
197 psiconv_progress(lev+3,off+len,"Going to read the character codes");
198 if (!(style->character = psiconv_basic_character_layout()))
199 goto ERROR2_2;
200 if ((res = psiconv_parse_character_layout_list(buf,lev+3,off+len,&leng,
201 style->character)))
202 goto ERROR2_3;
203 len += leng;
204 psiconv_progress(lev+3,off+len,"Going to read the hotkey");
205 temp = psiconv_read_u32(buf,lev+3,off+len,&res);
206 if (res)
207 goto ERROR2_3;
208 if (temp & 0xffffff00) {
209 psiconv_warn(lev+3,off+len,
210 "Normal style hotkey has unknown value (ignored)");
211 psiconv_debug(lev+3,off+len,"Hotkey value %08x",temp);
212 temp = 0;
213 }
214 style->hotkey = temp & 0x000000ff;
215 if ((style->hotkey >= 32) && (style->hotkey < 127))
216 psiconv_debug(lev+3,off+len,"Hotkey: %c",style->hotkey);
217 else if (style->hotkey == 0x00)
218 psiconv_debug(lev+3,off+len,"Hotkey: <none>");
219 else
220 psiconv_debug(lev+3,off+len,"Hotkey: %02x",style->hotkey);
221 (*result)->normal = style;
222 len += 0x04;
223
224 psiconv_progress(lev+2,off+len,"Going to read hotkeys list");
225 if (!((*result)->styles = psiconv_list_new(sizeof(*style))))
226 goto ERROR3;
227 if (!(style = malloc(sizeof(*style)))) {
228 goto ERROR3_1;
229 }
230
231 psiconv_progress(lev+3,off+len,"Going to read the number of entries");
232 nr = psiconv_read_u8(buf,lev+3,off+len,&res);
233 if (res)
234 goto ERROR3_2;
235 len ++;
236 psiconv_debug(lev+3,off+len,"Nummer of hotkeys: %02x",nr);
237 for (i = 0; i < nr; i ++) {
238 temp = psiconv_read_u32(buf,lev+2,off+len,&res);
239 if (res)
240 goto ERROR3_2;
241 if (temp & 0xffffff00) {
242 psiconv_warn(lev+3,off+len,"Style hotkey has unknown value (ignored)");
243 psiconv_debug(lev+3,off+len,"Hotkey %d value %08x",i,temp);
244 temp = 0;
245 }
246 style->hotkey = temp & 0x000000ff;
247 if ((style->hotkey >= 32) && (style->hotkey < 127))
248 psiconv_debug(lev+3,off+len,"Hotkey %d: %c",i,style->hotkey);
249 else if (style->hotkey == 0x00)
250 psiconv_debug(lev+3,off+len,"Hotkey %d: <none>",i);
251 else
252 psiconv_debug(lev+3,off+len,"Hotkey %d: %02x",i,style->hotkey);
253 if ((res = psiconv_list_add((*result)->styles,style)))
254 goto ERROR3_2;
255 len += 0x04;
256 }
257 free(style);
258
259 psiconv_progress(lev+2,off+len,"Going to read all other styles");
260 psiconv_progress(lev+2,off+len,"Going to read the number of styles");
261 nr = psiconv_read_u8(buf,lev+3,off+len,&res);
262 if (res)
263 goto ERROR4;
264 if (nr != psiconv_list_length((*result)->styles)) {
265 psiconv_warn(lev+3,off+len,"Number of styles and hotkeys do not match");
266 psiconv_debug(lev+3,off+len,"%d hotkeys, %d styles",
267 psiconv_list_length((*result)->styles), nr);
268 }
269 len ++;
270
271 for (i = 0; i < nr; i++) {
272 psiconv_progress(lev+2,off+len,"Next style: %d",i);
273 if (i >= psiconv_list_length((*result)->styles)) {
274 if (!(style = malloc(sizeof(*style))))
275 goto ERROR5;
276 style->hotkey = 0;
277 if (!(psiconv_list_add((*result)->styles,style))) {
278 free(style);
279 goto ERROR5;
280 }
281 psiconv_debug(lev+3,off+len,"New entry added in list");
282 free(style);
283 }
284 if (!(style = psiconv_list_get((*result)->styles,i)))
285 goto ERROR5;
286 psiconv_progress(lev+3,off+len,"Going to read the style name");
287 style->name = psiconv_read_string(buf,lev+3,off+len,&leng,&res);
288 if (res)
289 goto ERROR5;
290 len += leng;
291 psiconv_progress(lev+3,off+len,
292 "Going to read whether this style is built-in");
293 temp = psiconv_read_u32(buf,lev+2,off+len,&res);
294 if (res)
295 goto ERROR6;
296
297 if (temp == PSICONV_ID_STYLE_BUILT_IN) {
298 style->built_in = psiconv_bool_true;
299 psiconv_debug(lev+3,off+len,"Built-in style");
300 } else if (temp == PSICONV_ID_STYLE_REMOVABLE) {
301 style->built_in = psiconv_bool_false;
302 psiconv_debug(lev+3,off+len,"Removable style");
303 } else {
304 psiconv_warn(lev+3,off+len,
305 "Word styles section unknown style id (treated as built-in)");
306 psiconv_debug(lev+3,off+len,"Unknown id: %08x",temp);
307 style->built_in = psiconv_bool_false;
308 }
309 len += 4;
310 psiconv_progress(lev+3,off+len,"Going to read outline level");
311 style->outline_level = psiconv_read_u32(buf,lev+3,off+len,&res);
312 if (res)
313 goto ERROR6;
314 psiconv_debug(lev+3,off+len,"Outline Level: %08x", style->outline_level);
315 len += 4;
316 psiconv_progress(lev+3,off+len,"Going to read the character codes");
317 if (!(style->character = psiconv_clone_character_layout((*result)->normal->character)))
318 goto ERROR6;
319 if ((res = psiconv_parse_character_layout_list(buf,lev+3,off+len,&leng,
320 style->character)))
321 goto ERROR7;
322 len += leng;
323 psiconv_progress(lev+3,off+len,"Going to read the paragraph codes");
324 if (!(style->paragraph = psiconv_clone_paragraph_layout((*result)->normal->paragraph)))
325 goto ERROR7;
326 if ((res = psiconv_parse_paragraph_layout_list(buf,lev+3,off+len,&leng,
327 style->paragraph)))
328 goto ERROR8;
329 len += leng;
330 }
331
332 psiconv_progress(lev+2,off+len,"Reading trailing bytes");
333 for (i = 0; i < psiconv_list_length((*result)->styles); i++) {
334 temp = psiconv_read_u8(buf,lev+3,off+len,&res);
335 if (res)
336 goto ERROR4;
337 if (temp != 0xff) {
338 psiconv_warn(lev+3,off+len,"Unknown trailing style byte");
339 psiconv_debug(lev+3,off+len,"Trailing byte: %02x expected, read %02x",
340 0xff,temp);
341 } else
342 psiconv_debug(lev+3,off+len,"Read trailing byte 0xff");
343 len++;
344 }
345
346 if (length)
347 *length = len;
348
349 psiconv_progress(lev,off+len-1,
350 "End of word styles section (total length: %08x)", len);
351
352 return res;
353
354
355 ERROR3_2:
356 free(style);
357 ERROR3_1:
358 psiconv_list_free((*result)->styles);
359 goto ERROR3;
360
361 ERROR2_3:
362 psiconv_free_character_layout(style->character);
363 ERROR2_2:
364 psiconv_free_paragraph_layout(style->paragraph);
365 ERROR2_1:
366 free (style);
367 goto ERROR2;
368
369 ERROR8:
370 psiconv_free_paragraph_layout(style->paragraph);
371 ERROR7:
372 psiconv_free_character_layout(style->character);
373 ERROR6:
374 free(style->name);
375 ERROR5:
376 for (j = 0; j < i ;j++) {
377 if (!(style = psiconv_list_get((*result)->styles,j))) {
378 psiconv_warn(lev+1,off,"Massive memory corruption");
379 goto ERROR4;
380 }
381 psiconv_free_character_layout(style->character);
382 psiconv_free_paragraph_layout(style->paragraph);
383 free(style->name);
384 }
385 ERROR4:
386 psiconv_list_free((*result)->styles);
387 ERROR3:
388 psiconv_free_word_style((*result)->normal);
389 ERROR2:
390 free (*result);
391 ERROR1:
392 psiconv_warn(lev+1,off,"Reading of Word Status Section failed");
393 if (length)
394 *length = 0;
395 if (!res)
396 return -PSICONV_E_NOMEM;
397 else
398 return res;
399 }
400
401
402

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