lib/psiconv/parse_word.c

/*
    parse_word.c - Part of psiconv, a PSION 5 file formats converter
    Copyright (c) 1999-2014  Frodo Looijaard <frodo@frodo.looijaard.name>

    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_config config,
                                      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(config,lev+1,off,"Going to read the word status section");
  if (!(*result = malloc(sizeof(**result))))
    goto ERROR1;

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

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

  (*result)->show_tabs = temp&0x01 ? psiconv_bool_true : psiconv_bool_false;
  psiconv_debug(config,lev+2,off+len,"Show tabs: %02x",(*result)->show_tabs);
  (*result)->show_spaces = temp&0x02 ? psiconv_bool_true : psiconv_bool_false;
  psiconv_debug(config,lev+2,off+len,"Show spaces: %02x",(*result)->show_spaces);
  (*result)->show_paragraph_ends = temp &0x04 ? psiconv_bool_true :
                                                psiconv_bool_false;
  psiconv_debug(config,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(config,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(config,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(config,lev+2,off+len,"Show hard space: %02x",
                (*result)->show_hard_space);
  if (temp & 0x90) {
    psiconv_warn(config,lev+2,off+len,"Word status section first byte of display "
                               "flags contains unknown flags (ignored)");
    psiconv_debug(config,lev+2,off+len,"Unknown flags: %02x",temp & 0x90);
  }
  len ++;

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

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

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

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

  psiconv_progress(config,lev+2,off+len,"Going to read operational flags");
  temp = psiconv_read_u8(config,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(config,lev+2,off+len,"Fit lines to screen: %02x",
                (*result)->fit_lines_to_screen);
  if (temp & 0xf7) {
    psiconv_warn(config,lev+2,off+len,"Word status section operational flags "
                               "contains unknown flags (ignored)");
    psiconv_debug(config,lev+2,off+len,"Unknown flags: %02x",temp & 0xfc);
  }
  len ++;

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

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

  if (length)
    *length = len;

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

ERROR2:
  free (*result);
ERROR1:
  psiconv_error(config,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_config config,
                                      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(config,lev+1,off,"Going to read the word styles section");
  if (!(*result = malloc(sizeof(**result))))
    goto ERROR1;

  psiconv_progress(config,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(config,lev+3,off+len,"Going to read the paragraph codes");
  if ((res = psiconv_parse_paragraph_layout_list(config,buf,lev+3,off+len,&leng,
                                             style->paragraph)))
    goto ERROR2_2;
  len += leng;
  psiconv_progress(config,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(config,buf,lev+3,off+len,&leng,
                                             style->character)))
    goto ERROR2_3;
  len += leng;
  /* Ugly: I really don't know whether this is right for UTF8 */
  psiconv_progress(config,lev+3,off+len,"Going to read the hotkey");
  style->hotkey = psiconv_unicode_read_char(config,buf,lev+3,off+len,NULL,&res);
  psiconv_debug(config,lev+3,off+len,"Normal Hotkey value %08x",style->hotkey);
  if (res)
    goto ERROR2_3;
  len += 0x04;
  (*result)->normal = style;

  psiconv_progress(config,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(config,lev+3,off+len,"Going to read the number of entries");
  nr = psiconv_read_u8(config,buf,lev+3,off+len,&res);
  if (res)
    goto ERROR3_2;
  len ++;
  psiconv_debug(config,lev+3,off+len,"Nummer of hotkeys: %02x",nr);
  for (i = 0; i < nr; i ++) {
    /* Ugly: I really don't know whether this is right for UTF8 */
    style->hotkey = psiconv_unicode_read_char(config,buf,lev+3,off+len,
                                              NULL,&res);
    psiconv_debug(config,lev+3,off+len,"Hotkey %d value %08x",i,style->hotkey);
    len += 0x04;
    if ((res = psiconv_list_add((*result)->styles,style)))
      goto ERROR3_2;
  }
  free(style);

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

  for (i = 0; i < nr; i++) {
    psiconv_progress(config,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(config,lev+3,off+len,"New entry added in list");
      free(style);
    }
    if (!(style = psiconv_list_get((*result)->styles,i))) 
      goto ERROR5;
    psiconv_progress(config,lev+3,off+len,"Going to read the style name");
    style->name = psiconv_read_string(config,buf,lev+3,off+len,&leng,&res);
    if (res)
      goto ERROR5;
    len += leng;
    psiconv_progress(config,lev+3,off+len,
                     "Going to read whether this style is built-in");
    temp = psiconv_read_u32(config,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(config,lev+3,off+len,"Built-in style");
    } else if (temp == PSICONV_ID_STYLE_REMOVABLE) {
      style->built_in = psiconv_bool_false;
      psiconv_debug(config,lev+3,off+len,"Removable style");
    } else {
      psiconv_warn(config,lev+3,off+len,
               "Word styles section unknown style id (treated as built-in)");
      psiconv_debug(config,lev+3,off+len,"Unknown id: %08x",temp);
      style->built_in = psiconv_bool_false;
    }
    len += 4;
    psiconv_progress(config,lev+3,off+len,"Going to read outline level");
    style->outline_level = psiconv_read_u32(config,buf,lev+3,off+len,&res);
    if (res)
      goto ERROR6;
    psiconv_debug(config,lev+3,off+len,"Outline Level: %08x", style->outline_level);
    len += 4;
    psiconv_progress(config,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(config,buf,lev+3,off+len,&leng,
                                               style->character)))
      goto ERROR7;
    len += leng;
    psiconv_progress(config,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(config,buf,lev+3,off+len,&leng,
                                               style->paragraph)))
      goto ERROR8;
    len += leng;
  }

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

  if (length)
    *length = len;

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