lib/psiconv/parse_word.c

/*
    parse_word.c - Part of psiconv, a PSION 5 file formats converter
    Copyright (c) 1999, 2000  Frodo Looijaard <frodol@dds.nl>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include "config.h"
#include "compat.h"

#include <stdlib.h>

#include "parse_routines.h"
#include "error.h"

#ifdef DMALLOC
#include <dmalloc.h>
#endif

int psiconv_parse_word_status_section(const psiconv_buffer buf, int lev,
                                      psiconv_u32 off, int *length, 
                                      psiconv_word_status_section *result)
{
  int res=0;
  int len=0;
  psiconv_u32 temp;
  int leng;

  psiconv_progress(lev+1,off,"Going to read the word status section");
  if (!(*result = malloc(sizeof(**result))))
    goto ERROR1;

  psiconv_progress(lev+2,off+len,
                   "Going to read the initial byte (%02x expected)",0x02);
  temp = psiconv_read_u8(buf,lev+2,off+len,&res);
  if (res)
    goto ERROR2;
  if (temp != 0x02) {
    psiconv_warn(lev+2,off+len,
                 "Word status section initial byte unknown value (ignored)");
    psiconv_debug(lev+2,off+len,"Initial byte: %02x",temp);
  }
  len ++;

  psiconv_progress(lev+2,off+len,
                   "Going to read the first byte of display flags");
  temp = psiconv_read_u8(buf,lev+2,off+len,&res);
  if (res)
    goto ERROR2;

  (*result)->show_tabs = temp&0x01 ? psiconv_bool_true : psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show tabs: %02x",(*result)->show_tabs);
  (*result)->show_spaces = temp&0x02 ? psiconv_bool_true : psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show spaces: %02x",(*result)->show_spaces);
  (*result)->show_paragraph_ends = temp &0x04 ? psiconv_bool_true :
                                                psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show paragraph ends: %02x",
                (*result)->show_paragraph_ends);
  (*result)->show_line_breaks = temp & 0x08 ? psiconv_bool_true :
                                              psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show line breaks: %02x",
                (*result)->show_line_breaks);
  (*result)->show_hard_minus = temp & 0x20 ? psiconv_bool_true :
                                             psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show hard minus: %02x",
                (*result)->show_hard_minus);
  (*result)->show_hard_space = temp & 0x40 ? psiconv_bool_true :
                                             psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show hard space: %02x",
                (*result)->show_hard_space);
  if (temp & 0x90) {
    psiconv_warn(lev+2,off+len,"Word status section first byte of display "
                               "flags contains unknown flags (ignored)");
    psiconv_debug(lev+2,off+len,"Unknown flags: %02x",temp & 0x90);
  }
  len ++;

  psiconv_progress(lev+2,off+len,"Going to read second byte of display flags");
  temp = psiconv_read_u8(buf,lev+2,off+len,&res);
  if (res)
    goto ERROR2;

  (*result)->show_full_pictures = temp & 0x01 ? psiconv_bool_true :
                                                psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show full pictures: %02x",
                (*result)->show_full_pictures);
  (*result)->show_full_graphs = temp & 0x02 ? psiconv_bool_true :
                                              psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Show full graphs: %02x",
                               (*result)->show_full_graphs);
  if (temp & 0xfc) {
    psiconv_warn(lev+2,off+len,"Word status section second byte of display "
                               "flags contains unknown flags (ignored)");
    psiconv_debug(lev+2,off+len,"Unknown flags: %02x",temp & 0xfc);
  }
  len ++;

  psiconv_progress(lev+2,off+len,"Going to read top toolbar setting");
  if ((res = psiconv_parse_bool(buf,lev+2,off+len,&leng,
             &(*result)->show_top_toolbar)))
    goto ERROR2;
  len += leng;

  psiconv_progress(lev+2,off+len,"Going to read side toolbar setting");
  if ((res = psiconv_parse_bool(buf,lev+2,off+len,&leng,
                                &(*result)->show_side_toolbar)))
    goto ERROR2;
  len += leng;

  psiconv_progress(lev+2,off+len,"Going to read operational flags");
  temp = psiconv_read_u8(buf,lev+2,off+len,&res);
  if (res)
    goto ERROR2;
  (*result)->fit_lines_to_screen = temp & 0x08 ? psiconv_bool_true :
                                                 psiconv_bool_false;
  psiconv_debug(lev+2,off+len,"Fit lines to screen: %02x",
                (*result)->fit_lines_to_screen);
  if (temp & 0xf7) {
    psiconv_warn(lev+2,off+len,"Word status section operational flags "
                               "contains unknown flags (ignored)");
    psiconv_debug(lev+2,off+len,"Unknown flags: %02x",temp & 0xfc);
  }
  len ++;

  psiconv_progress(lev+2,off+len,"Going to read cursor position");
  (*result)->cursor_position = psiconv_read_u32(buf,lev+2,off + len,&res);
  if (res)
    goto ERROR2;
  psiconv_debug(lev+2,off+len,"Cursor position: %08x",
                (*result)->cursor_position);
  len += 0x04;

  psiconv_progress(lev+2,off+len,"Going to read display size");
  (*result)->display_size = psiconv_read_u32(buf,lev+2,off + len,&res);
  if (res)
    goto ERROR2;
  psiconv_debug(lev+2,off+len,"Display size: %08x",
                (*result)->display_size);
  len += 0x04;

  if (length)
    *length = len;

  psiconv_progress(lev,off+len-1,
                   "End of word status section (total length: %08x)", len);
  return 0;

ERROR2:
  free (*result);
ERROR1:
  psiconv_warn(lev+1,off,"Reading of Word Status Section failed");
  if (length)
    *length = 0;
   if (!res)
     return -PSICONV_E_NOMEM;
   else
    return res;
}

int psiconv_parse_word_styles_section(const psiconv_buffer buf, int lev,
                                      psiconv_u32 off, int *length,
                                      psiconv_word_styles_section *result)
{
  int res=0;
  int len=0;
  int leng,i,nr,j;
  psiconv_word_style style;
  psiconv_u32 temp;

  psiconv_progress(lev+1,off,"Going to read the word styles section");
  if (!(*result = malloc(sizeof(**result))))
    goto ERROR1;

  psiconv_progress(lev+2,off+len,"Going to read style normal");
  if (!(style = malloc(sizeof(*style))))
    goto ERROR2;
  style->name = NULL;
  if (!(style->paragraph = psiconv_basic_paragraph_layout()))
    goto ERROR2_1;
  psiconv_progress(lev+3,off+len,"Going to read the paragraph codes");
  if ((res = psiconv_parse_paragraph_layout_list(buf,lev+3,off+len,&leng,
                                             style->paragraph)))
    goto ERROR2_2;
  len += leng;
  psiconv_progress(lev+3,off+len,"Going to read the character codes");
  if (!(style->character = psiconv_basic_character_layout()))
    goto ERROR2_2;
  if ((res = psiconv_parse_character_layout_list(buf,lev+3,off+len,&leng,
                                             style->character)))
    goto ERROR2_3;
  len += leng;
  psiconv_progress(lev+3,off+len,"Going to read the hotkey");
  temp = psiconv_read_u32(buf,lev+3,off+len,&res);
  if (res)
    goto ERROR2_3;
  if (temp & 0xffffff00) {
    psiconv_warn(lev+3,off+len,
                 "Normal style hotkey has unknown value (ignored)");
    psiconv_debug(lev+3,off+len,"Hotkey value %08x",temp);
    temp = 0;
  }
  style->hotkey = temp & 0x000000ff;
  if ((style->hotkey >= 32) && (style->hotkey < 127))
    psiconv_debug(lev+3,off+len,"Hotkey: %c",style->hotkey);
  else if (style->hotkey == 0x00)
    psiconv_debug(lev+3,off+len,"Hotkey: <none>");
  else
    psiconv_debug(lev+3,off+len,"Hotkey: %02x",style->hotkey);
  (*result)->normal = style;
  len += 0x04;

  psiconv_progress(lev+2,off+len,"Going to read hotkeys list");
  if (!((*result)->styles = psiconv_list_new(sizeof(*style))))
    goto ERROR3;
  if (!(style = malloc(sizeof(*style)))) {
    goto ERROR3_1;
  }
    
  psiconv_progress(lev+3,off+len,"Going to read the number of entries");
  nr = psiconv_read_u8(buf,lev+3,off+len,&res);
  if (res)
    goto ERROR3_2;
  len ++;
  psiconv_debug(lev+3,off+len,"Nummer of hotkeys: %02x",nr);
  for (i = 0; i < nr; i ++) {
    temp = psiconv_read_u32(buf,lev+2,off+len,&res);
    if (res)
      goto ERROR3_2;
    if (temp & 0xffffff00) {
      psiconv_warn(lev+3,off+len,"Style hotkey has unknown value (ignored)");
      psiconv_debug(lev+3,off+len,"Hotkey %d value %08x",i,temp);
      temp = 0;
    }
    style->hotkey = temp & 0x000000ff;
    if ((style->hotkey >= 32) && (style->hotkey < 127))
      psiconv_debug(lev+3,off+len,"Hotkey %d: %c",i,style->hotkey);
    else if (style->hotkey == 0x00)
      psiconv_debug(lev+3,off+len,"Hotkey %d: <none>",i);
    else
      psiconv_debug(lev+3,off+len,"Hotkey %d: %02x",i,style->hotkey);
    if ((res = psiconv_list_add((*result)->styles,style)))
      goto ERROR3_2;
    len += 0x04;
  }
  free(style);

  psiconv_progress(lev+2,off+len,"Going to read all other styles");
  psiconv_progress(lev+2,off+len,"Going to read the number of styles");
  nr = psiconv_read_u8(buf,lev+3,off+len,&res);
  if (res)
    goto ERROR4;
  if (nr != psiconv_list_length((*result)->styles)) {
    psiconv_warn(lev+3,off+len,"Number of styles and hotkeys do not match");
    psiconv_debug(lev+3,off+len,"%d hotkeys, %d styles",
          psiconv_list_length((*result)->styles), nr);
  }
  len ++;

  for (i = 0; i < nr; i++) {
    psiconv_progress(lev+2,off+len,"Next style: %d",i);
    if (i >= psiconv_list_length((*result)->styles)) {
      if (!(style = malloc(sizeof(*style))))
        goto ERROR5;
      style->hotkey = 0;
      if (!(psiconv_list_add((*result)->styles,style))) {
        free(style);
        goto ERROR5;
      }
      psiconv_debug(lev+3,off+len,"New entry added in list");
      free(style);
    }
    if (!(style = psiconv_list_get((*result)->styles,i))) 
      goto ERROR5;
    psiconv_progress(lev+3,off+len,"Going to read the style name");
    style->name = psiconv_read_string(buf,lev+3,off+len,&leng,&res);
    if (res)
      goto ERROR5;
    len += leng;
    psiconv_progress(lev+3,off+len,
                     "Going to read whether this style is built-in");
    temp = psiconv_read_u32(buf,lev+2,off+len,&res);
    if (res)
      goto ERROR6;

    if (temp == PSICONV_ID_STYLE_BUILT_IN) {
      style->built_in = psiconv_bool_true;
      psiconv_debug(lev+3,off+len,"Built-in style");
    } else if (temp == PSICONV_ID_STYLE_REMOVABLE) {
      style->built_in = psiconv_bool_false;
      psiconv_debug(lev+3,off+len,"Removable style");
    } else {
      psiconv_warn(lev+3,off+len,
               "Word styles section unknown style id (treated as built-in)");
      psiconv_debug(lev+3,off+len,"Unknown id: %08x",temp);
      style->built_in = psiconv_bool_false;
    }
    len += 4;
    psiconv_progress(lev+3,off+len,"Going to read outline level");
    style->outline_level = psiconv_read_u32(buf,lev+3,off+len,&res);
    if (res)
      goto ERROR6;
    psiconv_debug(lev+3,off+len,"Outline Level: %08x", style->outline_level);
    len += 4;
    psiconv_progress(lev+3,off+len,"Going to read the character codes");
    if (!(style->character = psiconv_clone_character_layout((*result)->normal->character)))
      goto ERROR6;
    if ((res = psiconv_parse_character_layout_list(buf,lev+3,off+len,&leng,
                                               style->character)))
      goto ERROR7;
    len += leng;
    psiconv_progress(lev+3,off+len,"Going to read the paragraph codes");
    if (!(style->paragraph = psiconv_clone_paragraph_layout((*result)->normal->paragraph)))
      goto ERROR7;
    if ((res = psiconv_parse_paragraph_layout_list(buf,lev+3,off+len,&leng,
                                               style->paragraph)))
      goto ERROR8;
    len += leng;
  }

  psiconv_progress(lev+2,off+len,"Reading trailing bytes");
  for (i = 0; i < psiconv_list_length((*result)->styles); i++) {
    temp = psiconv_read_u8(buf,lev+3,off+len,&res);
    if (res)
      goto ERROR4;
    if (temp != 0xff) {
      psiconv_warn(lev+3,off+len,"Unknown trailing style byte"); 
      psiconv_debug(lev+3,off+len,"Trailing byte: %02x expected, read %02x",
                    0xff,temp); 
    } else
      psiconv_debug(lev+3,off+len,"Read trailing byte 0xff");
    len++;
  }

  if (length)
    *length = len;

  psiconv_progress(lev,off+len-1,
                   "End of word styles section (total length: %08x)", len);

  return res;


ERROR3_2:
  free(style);
ERROR3_1:
  psiconv_list_free((*result)->styles);
goto ERROR3;

ERROR2_3:
  psiconv_free_character_layout(style->character);
ERROR2_2:
  psiconv_free_paragraph_layout(style->paragraph);
ERROR2_1:
  free (style);
goto ERROR2;

ERROR8:
  psiconv_free_paragraph_layout(style->paragraph);
ERROR7:
  psiconv_free_character_layout(style->character);
ERROR6:
  free(style->name);
ERROR5:
  for (j = 0; j < i ;j++) {
    if (!(style = psiconv_list_get((*result)->styles,j))) {
      psiconv_warn(lev+1,off,"Massive memory corruption");
      goto ERROR4;
    }
    psiconv_free_character_layout(style->character);
    psiconv_free_paragraph_layout(style->paragraph);
    free(style->name);
  }
ERROR4:
  psiconv_list_free((*result)->styles);
ERROR3:
  psiconv_free_word_style((*result)->normal);
ERROR2:
  free (*result);
ERROR1:
  psiconv_warn(lev+1,off,"Reading of Word Status Section failed");
  if (length)
    *length = 0;
   if (!res)
     return -PSICONV_E_NOMEM;
   else
    return res;
}


1	frodo	2	/*
2			parse_word.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	frodo	71
25	frodo	2	#include "parse_routines.h"
26	frodo	71	#include "error.h"
27	frodo	2
28	frodo	142	#ifdef DMALLOC
29			#include <dmalloc.h>
30			#endif
31
32	frodo	2	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	frodo	64	if (!(result = malloc(sizeof(*result))))
43			goto ERROR1;
44	frodo	2
45			psiconv_progress(lev+2,off+len,
46			"Going to read the initial byte (%02x expected)",0x02);
47	frodo	64	temp = psiconv_read_u8(buf,lev+2,off+len,&res);
48			if (res)
49			goto ERROR2;
50	frodo	2	if (temp != 0x02) {
51			psiconv_warn(lev+2,off+len,
52	frodo	64	"Word status section initial byte unknown value (ignored)");
53	frodo	2	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	frodo	64	temp = psiconv_read_u8(buf,lev+2,off+len,&res);
60			if (res)
61			goto ERROR2;
62	frodo	2
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	frodo	64	"flags contains unknown flags (ignored)");
86	frodo	2	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	frodo	64	temp = psiconv_read_u8(buf,lev+2,off+len,&res);
92			if (res)
93			goto ERROR2;
94	frodo	2
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	frodo	64	"flags contains unknown flags (ignored)");
106	frodo	2	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	frodo	64	if ((res = psiconv_parse_bool(buf,lev+2,off+len,&leng,
112			&(*result)->show_top_toolbar)))
113			goto ERROR2;
114	frodo	2	len += leng;
115
116			psiconv_progress(lev+2,off+len,"Going to read side toolbar setting");
117	frodo	64	if ((res = psiconv_parse_bool(buf,lev+2,off+len,&leng,
118			&(*result)->show_side_toolbar)))
119			goto ERROR2;
120	frodo	2	len += leng;
121
122			psiconv_progress(lev+2,off+len,"Going to read operational flags");
123	frodo	64	temp = psiconv_read_u8(buf,lev+2,off+len,&res);
124			if (res)
125			goto ERROR2;
126	frodo	2	(*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	frodo	64	"contains unknown flags (ignored)");
133	frodo	2	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	frodo	64	(*result)->cursor_position = psiconv_read_u32(buf,lev+2,off + len,&res);
139			if (res)
140			goto ERROR2;
141	frodo	2	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	frodo	82	(*result)->display_size = psiconv_read_u32(buf,lev+2,off + len,&res);
147	frodo	64	if (res)
148			goto ERROR2;
149	frodo	2	psiconv_debug(lev+2,off+len,"Display size: %08x",
150	frodo	82	(*result)->display_size);
151	frodo	2	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	frodo	64	return 0;
159	frodo	2
160	frodo	64	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	frodo	2	}
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	frodo	64	int leng,i,nr,j;
179	frodo	2	psiconv_word_style style;
180			psiconv_u32 temp;
181
182			psiconv_progress(lev+1,off,"Going to read the word styles section");
183	frodo	64	if (!(result = malloc(sizeof(*result))))
184			goto ERROR1;
185	frodo	2
186			psiconv_progress(lev+2,off+len,"Going to read style normal");
187	frodo	64	if (!(style = malloc(sizeof(*style))))
188			goto ERROR2;
189	frodo	2	style->name = NULL;
190	frodo	64	if (!(style->paragraph = psiconv_basic_paragraph_layout()))
191			goto ERROR2_1;
192	frodo	2	psiconv_progress(lev+3,off+len,"Going to read the paragraph codes");
193	frodo	64	if ((res = psiconv_parse_paragraph_layout_list(buf,lev+3,off+len,&leng,
194			style->paragraph)))
195			goto ERROR2_2;
196	frodo	2	len += leng;
197			psiconv_progress(lev+3,off+len,"Going to read the character codes");
198	frodo	64	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	frodo	2	len += leng;
204			psiconv_progress(lev+3,off+len,"Going to read the hotkey");
205	frodo	64	temp = psiconv_read_u32(buf,lev+3,off+len,&res);
206			if (res)
207			goto ERROR2_3;
208	frodo	2	if (temp & 0xffffff00) {
209	frodo	64	psiconv_warn(lev+3,off+len,
210			"Normal style hotkey has unknown value (ignored)");
211	frodo	2	psiconv_debug(lev+3,off+len,"Hotkey value %08x",temp);
212			temp = 0;
213			}
214	frodo	64	style->hotkey = temp & 0x000000ff;
215	frodo	2	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	frodo	64	if (!((result)->styles = psiconv_list_new(sizeof(style))))
226			goto ERROR3;
227			if (!(style = malloc(sizeof(*style)))) {
228			goto ERROR3_1;
229			}
230
231	frodo	2	psiconv_progress(lev+3,off+len,"Going to read the number of entries");
232	frodo	64	nr = psiconv_read_u8(buf,lev+3,off+len,&res);
233			if (res)
234			goto ERROR3_2;
235	frodo	2	len ++;
236			psiconv_debug(lev+3,off+len,"Nummer of hotkeys: %02x",nr);
237			for (i = 0; i < nr; i ++) {
238	frodo	64	temp = psiconv_read_u32(buf,lev+2,off+len,&res);
239			if (res)
240			goto ERROR3_2;
241	frodo	2	if (temp & 0xffffff00) {
242	frodo	64	psiconv_warn(lev+3,off+len,"Style hotkey has unknown value (ignored)");
243	frodo	2	psiconv_debug(lev+3,off+len,"Hotkey %d value %08x",i,temp);
244			temp = 0;
245			}
246	frodo	64	style->hotkey = temp & 0x000000ff;
247	frodo	2	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	frodo	64	if ((res = psiconv_list_add((*result)->styles,style)))
254			goto ERROR3_2;
255	frodo	2	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	frodo	64	nr = psiconv_read_u8(buf,lev+3,off+len,&res);
262			if (res)
263			goto ERROR4;
264	frodo	2	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	frodo	64	if (!(style = malloc(sizeof(*style))))
275			goto ERROR5;
276	frodo	2	style->hotkey = 0;
277	frodo	64	if (!(psiconv_list_add((*result)->styles,style))) {
278			free(style);
279			goto ERROR5;
280			}
281	frodo	2	psiconv_debug(lev+3,off+len,"New entry added in list");
282			free(style);
283			}
284	frodo	64	if (!(style = psiconv_list_get((*result)->styles,i)))
285			goto ERROR5;
286	frodo	2	psiconv_progress(lev+3,off+len,"Going to read the style name");
287	frodo	64	style->name = psiconv_read_string(buf,lev+3,off+len,&leng,&res);
288			if (res)
289			goto ERROR5;
290	frodo	2	len += leng;
291			psiconv_progress(lev+3,off+len,
292			"Going to read whether this style is built-in");
293	frodo	64	temp = psiconv_read_u32(buf,lev+2,off+len,&res);
294			if (res)
295			goto ERROR6;
296
297	frodo	2	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	frodo	64	psiconv_warn(lev+3,off+len,
305			"Word styles section unknown style id (treated as built-in)");
306	frodo	2	psiconv_debug(lev+3,off+len,"Unknown id: %08x",temp);
307			style->built_in = psiconv_bool_false;
308			}
309			len += 4;
310	frodo	27	psiconv_progress(lev+3,off+len,"Going to read outline level");
311	frodo	64	style->outline_level = psiconv_read_u32(buf,lev+3,off+len,&res);
312			if (res)
313			goto ERROR6;
314	frodo	27	psiconv_debug(lev+3,off+len,"Outline Level: %08x", style->outline_level);
315	frodo	2	len += 4;
316			psiconv_progress(lev+3,off+len,"Going to read the character codes");
317	frodo	70	if (!(style->character = psiconv_clone_character_layout((*result)->normal->character)))
318	frodo	64	goto ERROR6;
319			if ((res = psiconv_parse_character_layout_list(buf,lev+3,off+len,&leng,
320			style->character)))
321			goto ERROR7;
322	frodo	2	len += leng;
323			psiconv_progress(lev+3,off+len,"Going to read the paragraph codes");
324	frodo	70	if (!(style->paragraph = psiconv_clone_paragraph_layout((*result)->normal->paragraph)))
325	frodo	64	goto ERROR7;
326			if ((res = psiconv_parse_paragraph_layout_list(buf,lev+3,off+len,&leng,
327			style->paragraph)))
328			goto ERROR8;
329	frodo	2	len += leng;
330			}
331
332	frodo	82	psiconv_progress(lev+2,off+len,"Reading trailing bytes");
333	frodo	83	for (i = 0; i < psiconv_list_length((*result)->styles); i++) {
334	frodo	82	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	frodo	2	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	frodo	64
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	frodo	2	}
400
401
402	frodo	64
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26