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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 351 - (show annotations)
Wed Oct 22 19:53:40 2014 UTC (9 years, 5 months ago) by frodo
File MIME type: text/plain
File size: 6814 byte(s)
(Frodo) Update copyright year in all source files

1 /*
2 generate_word.c - Part of psiconv, a PSION 5 file formats converter
3 Copyright (c) 2000-2014 Frodo Looijaard <frodo@frodo.looijaard.name>
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 "generate_routines.h"
26 #include "error.h"
27
28 #ifdef DMALLOC
29 #include <dmalloc.h>
30 #endif
31
32
33 int psiconv_write_word_status_section(const psiconv_config config,
34 psiconv_buffer buf, int lev,
35 psiconv_word_status_section value)
36 {
37 int res;
38
39 psiconv_progress(config,lev,0,"Writing word status section");
40
41 if (!value) {
42 psiconv_error(config,lev,0,"Null word status section");
43 res = -PSICONV_E_GENERATE;
44 goto ERROR;
45 }
46
47 if ((res = psiconv_write_u8(config,buf,lev+1,0x02)))
48 goto ERROR;
49 if ((res = psiconv_write_u8(config,buf,lev+1,(value->show_tabs?0x01:0x00) |
50 (value->show_spaces?0x02:0x00) |
51 (value->show_paragraph_ends?0x04:0x00) |
52 (value->show_line_breaks?0x08:0x00) |
53 (value->show_hard_minus?0x20:0x00) |
54 (value->show_hard_space?0x40:0x00))))
55 goto ERROR;
56 if ((res = psiconv_write_u8(config,buf,lev+1,(value->show_full_pictures?0x01:0x00) |
57 (value->show_full_graphs?0x02:0x00))))
58 goto ERROR;
59 if ((res = psiconv_write_bool(config,buf,lev+1,value->show_top_toolbar)))
60 goto ERROR;
61 if ((res = psiconv_write_bool(config,buf,lev+1,value->show_side_toolbar)))
62 goto ERROR;
63 if ((res = psiconv_write_u8(config,buf,lev+1,(value->fit_lines_to_screen?0x08:0x00))))
64 goto ERROR;
65 if ((res = psiconv_write_u32(config,buf,lev+1,value->cursor_position)))
66 goto ERROR;
67 if ((res = psiconv_write_u32(config,buf,lev+1,value->display_size)))
68 goto ERROR;
69 psiconv_progress(config,lev,0,"End of word status section");
70 return 0;
71
72 ERROR:
73 psiconv_error(config,lev,0,"Writing of word status section failed");
74 return res;
75 }
76
77 int psiconv_write_word_styles_section(const psiconv_config config,
78 psiconv_buffer buf, int lev,
79 psiconv_word_styles_section value)
80 {
81 int res,i,j;
82 psiconv_word_style style;
83 psiconv_paragraph_layout basepara;
84 psiconv_character_layout basechar;
85 psiconv_font font;
86 psiconv_u32 buflen;
87
88 psiconv_progress(config,lev,0,"Writing word styles section");
89
90 if (!value || !value->normal || !value->styles) {
91 psiconv_error(config,lev,0,"Null word styles section");
92 res = -PSICONV_E_GENERATE;
93 goto ERROR1;
94 }
95
96 if (!(basepara=psiconv_basic_paragraph_layout())) {
97 psiconv_error(config,lev+1,0,"Out of memory error");
98 res = -PSICONV_E_NOMEM;
99 goto ERROR1;
100 }
101
102 if (!(basechar=psiconv_basic_character_layout())) {
103 psiconv_error(config,lev+1,0,"Out of memory error");
104 res = -PSICONV_E_NOMEM;
105 goto ERROR2;
106 }
107
108
109 if ((res = psiconv_write_paragraph_layout_list(config,buf,lev+1,
110 value->normal->paragraph,
111 basepara)))
112 goto ERROR3;
113 /* Always generate the font for Normal */
114 font = basechar->font;
115 basechar->font = NULL;
116 res = psiconv_write_character_layout_list(config,buf,lev+1,
117 value->normal->character,
118 basechar);
119 basechar->font = font;
120 if (res)
121 goto ERROR3;
122 buflen = psiconv_buffer_length(buf);
123 if ((res = psiconv_unicode_write_char(config,buf,lev+1,
124 value->normal->hotkey)))
125 goto ERROR3;
126 for (j = psiconv_buffer_length(buf) - buflen; j < 4; j++)
127 if ((res = psiconv_write_u8(config,buf,lev+1,0)))
128 goto ERROR3;
129
130 if ((res = psiconv_write_u8(config,buf,lev+1,
131 psiconv_list_length(value->styles))))
132 goto ERROR3;
133
134
135
136 for (i = 0; i < psiconv_list_length(value->styles); i++) {
137 if (!(style = psiconv_list_get(value->styles,i))) {
138 psiconv_error(config,lev,0,"Data structure corruption");
139 res = -PSICONV_E_NOMEM;
140 goto ERROR3;
141 }
142 buflen = psiconv_buffer_length(buf);
143 if ((res = psiconv_unicode_write_char(config,buf,lev+1,style->hotkey)))
144 goto ERROR3;
145 for (j = psiconv_buffer_length(buf) - buflen; j < 4; j++)
146 if ((res = psiconv_write_u8(config,buf,lev+1,0)))
147 goto ERROR3;
148 }
149 if ((res = psiconv_write_u8(config,buf,lev+1,psiconv_list_length(value->styles))))
150 goto ERROR3;
151 for (i = 0; i < psiconv_list_length(value->styles); i++) {
152 if (!(style = psiconv_list_get(value->styles,i))) {
153 psiconv_error(config,lev,0,"Data structure corruption");
154 res = -PSICONV_E_NOMEM;
155 goto ERROR3;
156 }
157 if (!style->name) {
158 psiconv_error(config,lev,0,"Null style name");
159 res = -PSICONV_E_GENERATE;
160 goto ERROR3;
161 }
162 if ((res = psiconv_write_string(config,buf,lev+1,style->name)))
163 goto ERROR3;
164 if ((res = psiconv_write_u32(config,buf,lev+1,style->built_in?PSICONV_ID_STYLE_BUILT_IN:
165 PSICONV_ID_STYLE_REMOVABLE)))
166 goto ERROR3;
167 if ((res = psiconv_write_u32(config,buf,lev+1,style->outline_level)))
168 goto ERROR3;
169 if ((res = psiconv_write_character_layout_list(config,buf,lev+1,style->character,
170 value->normal->character)))
171 goto ERROR3;
172 if ((res = psiconv_write_paragraph_layout_list(config,buf,lev+1,style->paragraph,
173 value->normal->paragraph)))
174 goto ERROR3;
175 }
176
177 for (i = 0; i < psiconv_list_length(value->styles); i++)
178 if ((res = psiconv_write_u8(config,buf,lev+1,0xff)))
179 goto ERROR3;
180 res = -PSICONV_E_OK;
181
182 ERROR3:
183 psiconv_free_character_layout(basechar);
184 ERROR2:
185 psiconv_free_paragraph_layout(basepara);
186 ERROR1:
187 if (res)
188 psiconv_error(config,lev,0,"Writing of word styles section failed");
189 else
190 psiconv_progress(config,lev,0,"End of word styles section");
191 return res;
192 }

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