/[public]/psiconv/trunk/program/psiconv/gen_rtf.c
ViewVC logotype

Annotation of /psiconv/trunk/program/psiconv/gen_rtf.c

Parent Directory Parent Directory | Revision Log Revision Log


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

1 frodo 14 /*
2     * gen_rtf.c - Part of psiconv, a PSION 5 file formats converter
3     * Copyright (c) 1999 Andrew Johnson <anjohnson@iee.org>
4 frodo 351 * Portions Copyright (c) 1999-2014 Frodo Looijaard <frodo@frodo.looijaard.name>
5 frodo 14 *
6     * This program is free software; you can redistribute it and/or modify
7     * it under the terms of the GNU General Public License as published by
8     * the Free Software Foundation; either version 2 of the License, or
9     * (at your option) any later version.
10     *
11     * This program is distributed in the hope that it will be useful,
12     * but WITHOUT ANY WARRANTY; without even the implied warranty of
13     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14     * GNU General Public License for more details.
15     *
16     * You should have received a copy of the GNU General Public License
17     * along with this program; if not, write to the Free Software
18     * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19     */
20    
21     #include "config.h"
22 frodo 20 #include "compat.h"
23 frodo 14 #include <stdio.h>
24     #include <string.h>
25 frodo 58 #include "psiconv/data.h"
26     #include "psiconv/list.h"
27 frodo 14 #include "gen.h"
28 frodo 34 #include "psiconv.h"
29 frodo 14
30 frodo 142 #ifdef DMALLOC
31     #include "dmalloc.h"
32     #endif
33 frodo 14
34 frodo 142
35 frodo 147
36 frodo 14 /*
37     * Various string tables for RTF settings
38     */
39    
40     /* Character conversion table */
41     /* TO BE ADJUSTED FOR RTF! */
42     static const char *char_table[0x100] = {
43     /* 0x00 */ "", "", "", "", "", "", "\n", "\n",
44     /* 0x08 */ "\n", "\t", "", "", "", "", "", "",
45     /* 0x10 */ " ", "", "", "", "", "", "", "",
46     /* 0x18 */ "", "", "", "", "", "", "", "",
47     /* 0x20 */ " ", "!", "\"", "#", "$", "%", "&", "'",
48     /* 0x28 */ "(", ")", "*", "+", ",", "-", ".", "/",
49     /* 0x30 */ "0", "1", "2", "3", "4", "5", "6", "7",
50     /* 0x38 */ "8", "9", ":", ";", "<", "=", ">", "?",
51     /* 0x40 */ "@", "A", "B", "C", "D", "E", "F", "G",
52     /* 0x48 */ "H", "I", "J", "K", "L", "M", "N", "O",
53     /* 0x50 */ "P", "Q", "R", "S", "T", "U", "V", "W",
54     /* 0x58 */ "X", "Y", "Z", "[", "\\", "]", "^", "_",
55     /* 0x60 */ "`", "a", "b", "c", "d", "e", "f", "g",
56     /* 0x68 */ "h", "i", "j", "k", "l", "m", "n", "o",
57     /* 0x70 */ "p", "q", "r", "s", "t", "u", "v", "w",
58     /* 0x78 */ "x", "y", "z", "{", "|", "}", "~", "",
59     /* 0x80 */ "", "", ",", "f", ",,", "...", "+", "#",
60     /* 0x88 */ "^", "\176/oo","S", "<", "OE", "", "", "",
61     /* 0x90 */ "", "`", "'", "``", "''", "*", "-", "--",
62     /* 0x98 */ "~", "(TM)", "s", ">", "oe", "", "", "Y",
63     /* 0xa0 */ "\xa0", "\xa1", "\xa2", "\xa3", "\xa4", "\xa5", "\xa6", "\xa7",
64     /* 0xa8 */ "\xa8", "\xa9", "\xaa", "\xab", "\xac", "\xad", "\xae", "\xaf",
65     /* 0xb0 */ "\xb0", "\xb1", "\xb2", "\xb3", "\xb4", "\xb5", "\xb6", "\xb7",
66     /* 0xb8 */ "\xb8", "\xb9", "\xba", "\xbb", "\xbc", "\xbd", "\xbe", "\xbf",
67     /* 0xc0 */ "\xc0", "\xc1", "\xc2", "\xc3", "\xc4", "\xc5", "\xc6", "\xc7",
68     /* 0xc8 */ "\xc8", "\xc9", "\xca", "\xcb", "\xcc", "\xcd", "\xce", "\xcf",
69     /* 0xd0 */ "\xd0", "\xd1", "\xd2", "\xd3", "\xd4", "\xd5", "\xd6", "\xd7",
70     /* 0xd8 */ "\xd8", "\xd9", "\xda", "\xdb", "\xdc", "\xdd", "\xde", "\xdf",
71     /* 0xe0 */ "\xe0", "\xe1", "\xe2", "\xe3", "\xe4", "\xe5", "\xe6", "\xe7",
72     /* 0xe8 */ "\xe8", "\xe9", "\xea", "\xeb", "\xec", "\xed", "\xee", "\xef",
73     /* 0xf0 */ "\xf0", "\xf1", "\xf2", "\xf3", "\xf4", "\xf5", "\xf6", "\xf7",
74     /* 0xf8 */ "\xf8", "\xf9", "\xfa", "\xfb", "\xfc", "\xfd", "\xfe", "\xff",
75     };
76    
77 frodo 147 static const char *utf_table[0x100] = {
78     /* 0x00 */ "", "", "", "", "", "", "\n", "\n",
79     /* 0x08 */ "\n", "\t", "", "", "", "", "", "",
80     /* 0x10 */ " ", "", "", "", "", "", "", "",
81     /* 0x18 */ "", "", "", "", "", "", "", "",
82     /* 0x20 */ " ", "!", "\"", "#", "$", "%", "&", "'",
83     /* 0x28 */ "(", ")", "*", "+", ",", "-", ".", "/",
84     /* 0x30 */ "0", "1", "2", "3", "4", "5", "6", "7",
85     /* 0x38 */ "8", "9", ":", ";", "<", "=", ">", "?",
86     /* 0x40 */ "@", "A", "B", "C", "D", "E", "F", "G",
87     /* 0x48 */ "H", "I", "J", "K", "L", "M", "N", "O",
88     /* 0x50 */ "P", "Q", "R", "S", "T", "U", "V", "W",
89     /* 0x58 */ "X", "Y", "Z", "[", "\\", "]", "^", "_",
90     /* 0x60 */ "`", "a", "b", "c", "d", "e", "f", "g",
91     /* 0x68 */ "h", "i", "j", "k", "l", "m", "n", "o",
92     /* 0x70 */ "p", "q", "r", "s", "t", "u", "v", "w",
93     /* 0x78 */ "x", "y", "z", "{", "|", "}", "~", "",
94     /* 0x80 */ "\x80", "\x81", "\x82", "\x83", "\x84", "\x85", "\x86", "\x87",
95     /* 0x88 */ "\x88", "\x89", "\x8a", "\x8b", "\x8c", "\x8d", "\x8e", "\x8f",
96     /* 0x90 */ "\x90", "\x91", "\x92", "\x93", "\x94", "\x95", "\x96", "\x97",
97     /* 0x98 */ "\x98", "\x99", "\x9a", "\x9b", "\x9c", "\x9d", "\x9e", "\x9f",
98     /* 0xa0 */ "\xa0", "\xa1", "\xa2", "\xa3", "\xa4", "\xa5", "\xa6", "\xa7",
99     /* 0xa8 */ "\xa8", "\xa9", "\xaa", "\xab", "\xac", "\xad", "\xae", "\xaf",
100     /* 0xb0 */ "\xb0", "\xb1", "\xb2", "\xb3", "\xb4", "\xb5", "\xb6", "\xb7",
101     /* 0xb8 */ "\xb8", "\xb9", "\xba", "\xbb", "\xbc", "\xbd", "\xbe", "\xbf",
102     /* 0xc0 */ "\xc0", "\xc1", "\xc2", "\xc3", "\xc4", "\xc5", "\xc6", "\xc7",
103     /* 0xc8 */ "\xc8", "\xc9", "\xca", "\xcb", "\xcc", "\xcd", "\xce", "\xcf",
104     /* 0xd0 */ "\xd0", "\xd1", "\xd2", "\xd3", "\xd4", "\xd5", "\xd6", "\xd7",
105     /* 0xd8 */ "\xd8", "\xd9", "\xda", "\xdb", "\xdc", "\xdd", "\xde", "\xdf",
106     /* 0xe0 */ "\xe0", "\xe1", "\xe2", "\xe3", "\xe4", "\xe5", "\xe6", "\xe7",
107     /* 0xe8 */ "\xe8", "\xe9", "\xea", "\xeb", "\xec", "\xed", "\xee", "\xef",
108     /* 0xf0 */ "\xf0", "\xf1", "\xf2", "\xf3", "\xf4", "\xf5", "\xf6", "\xf7",
109     /* 0xf8 */ "\xf8", "\xf9", "\xfa", "\xfb", "\xfc", "\xfd", "\xfe", "\xff",
110     };
111 frodo 14
112 frodo 147 /* a flag to indicate the use of UTF8 */
113     static psiconv_encoding encoding= PSICONV_ENCODING_CP1252;
114 frodo 14
115     static void fput_text(FILE * of, const char *text, int length) {
116     int j;
117 frodo 147 char ** table;
118     if (encoding == PSICONV_ENCODING_UTF8){
119     table = (char**) utf_table;
120     }else{
121     table = (char**) char_table;
122     }
123 frodo 14 for (j = 0; j < length; j++) {
124 frodo 147 fputs(table[(unsigned char) (text[j])], of);
125 frodo 14 }
126     }
127    
128     static int length_to_twips(psiconv_length_t len)
129     {
130     return 1440.0 / 2.54 * len;
131     }
132    
133     static int lookup_color(psiconv_list colors,psiconv_color color)
134     {
135     int i;
136     psiconv_color comp;
137     for (i = 0; i < psiconv_list_length(colors); i ++) {
138     comp = * (psiconv_color *) psiconv_list_get(colors,i);
139     if ((comp->red == color->red) && (comp->green == color->green) &&
140     (comp->blue == color->blue))
141     return i;
142     }
143     return -1;
144     }
145    
146     static void add_color(psiconv_list colors, psiconv_color color)
147     {
148     if (color)
149     if (lookup_color(colors,color) < 0)
150     psiconv_list_add(colors,&color);
151     }
152    
153     static int lookup_font(psiconv_list fonts,psiconv_font font)
154     {
155     int i;
156     psiconv_font comp;
157     for (i = 0; i < psiconv_list_length(fonts); i ++) {
158     comp = *(psiconv_font *) psiconv_list_get(fonts,i);
159     if ((comp->screenfont == font->screenfont) &&
160     ! strcmp(comp->name,font->name))
161     return i;
162     }
163     return -1;
164     }
165    
166     static void add_font(psiconv_list fonts, psiconv_font font)
167     {
168     if (font)
169     if (lookup_font(fonts,font) < 0)
170     psiconv_list_add(fonts,&font);
171     }
172    
173     static void scan_border(psiconv_list colors,psiconv_list fonts,
174     psiconv_border sec)
175     {
176     if (sec) {
177     add_color(colors,sec->color);
178     }
179     }
180    
181     static void scan_bullet(psiconv_list colors,psiconv_list fonts,
182     psiconv_bullet sec)
183     {
184     if (sec) {
185     add_color(colors,sec->color);
186     add_font(fonts,sec->font);
187     }
188     }
189    
190     static void scan_paragraph_layout(psiconv_list colors,psiconv_list fonts,
191     psiconv_paragraph_layout sec)
192     {
193     if (sec) {
194     add_color(colors,sec->back_color);
195     scan_bullet(colors,fonts,sec->bullet);
196     scan_border(colors,fonts,sec->left_border);
197     scan_border(colors,fonts,sec->right_border);
198     scan_border(colors,fonts,sec->top_border);
199     scan_border(colors,fonts,sec->bottom_border);
200     }
201     }
202    
203     static void scan_character_layout(psiconv_list colors,psiconv_list fonts,
204     psiconv_character_layout sec)
205     {
206     if (sec) {
207     add_color(colors,sec->color);
208     add_color(colors,sec->back_color);
209     add_font(fonts,sec->font);
210     }
211     }
212    
213     static void scan_in_line_layout(psiconv_list colors,psiconv_list fonts,
214     psiconv_in_line_layout sec)
215     {
216     if (sec) {
217     scan_character_layout(colors,fonts,sec->layout);
218     }
219     }
220    
221     static void scan_in_line_layouts(psiconv_list colors,psiconv_list fonts,
222     psiconv_in_line_layouts sec)
223     {
224     int i;
225     psiconv_in_line_layout layout;
226     if (sec) {
227     for (i = 0; i < psiconv_list_length(sec); i++) {
228     layout = psiconv_list_get(sec,i);
229     scan_in_line_layout(colors,fonts,layout);
230     }
231     }
232     }
233    
234     static void scan_paragraph(psiconv_list colors,psiconv_list fonts,
235     psiconv_paragraph sec)
236     {
237     if (sec) {
238     scan_paragraph_layout(colors,fonts,sec->base_paragraph);
239     scan_character_layout(colors,fonts,sec->base_character);
240     scan_in_line_layouts(colors,fonts,sec->in_lines);
241     }
242     }
243    
244     static void scan_text_and_layout(psiconv_list colors,psiconv_list fonts,
245     psiconv_text_and_layout sec)
246     {
247     int i;
248     psiconv_paragraph para;
249     if (sec) {
250     for (i = 0; i < psiconv_list_length(sec); i++) {
251     para = psiconv_list_get(sec,i);
252     scan_paragraph(colors,fonts,para);
253     }
254     }
255     }
256    
257     static void scan_texted_section(psiconv_list colors,psiconv_list fonts,
258     psiconv_texted_section sec)
259     {
260     if (sec) {
261     scan_text_and_layout(colors,fonts,sec->paragraphs);
262     }
263     }
264    
265     static void scan_page_header(psiconv_list colors,psiconv_list fonts,
266     psiconv_page_header sec)
267     {
268     if (sec) {
269     scan_paragraph_layout(colors,fonts,sec->base_paragraph_layout);
270     scan_character_layout(colors,fonts,sec->base_character_layout);
271     scan_texted_section(colors,fonts,sec->text);
272     }
273     }
274    
275     static void scan_page_layout_section(psiconv_list colors,psiconv_list fonts,
276     psiconv_page_layout_section sec)
277     {
278     if (sec) {
279     scan_page_header(colors,fonts,sec->header);
280     scan_page_header(colors,fonts,sec->footer);
281     }
282     }
283    
284     static void scan_word_style(psiconv_list colors,psiconv_list fonts,
285     psiconv_word_style sec)
286     {
287     if (sec) {
288     scan_character_layout(colors,fonts,sec->character);
289     scan_paragraph_layout(colors,fonts,sec->paragraph);
290     }
291     }
292    
293     static void scan_word_style_list(psiconv_list colors,psiconv_list fonts,
294     psiconv_word_style_list sec)
295     {
296     int i;
297     psiconv_word_style style;
298     if (sec) {
299     for (i = 0; i < psiconv_list_length(sec); i++) {
300     style = psiconv_list_get(sec,i);
301     scan_word_style(colors,fonts,style);
302     }
303     }
304     }
305    
306     static void scan_word_styles_section(psiconv_list colors,psiconv_list fonts,
307     psiconv_word_styles_section sec)
308     {
309     if (sec) {
310     scan_word_style(colors,fonts,sec->normal);
311     scan_word_style_list(colors,fonts,sec->styles);
312     }
313     }
314    
315    
316     static void scan_word_f(psiconv_list colors,psiconv_list fonts,
317     psiconv_word_f sec)
318     {
319     if (sec) {
320     scan_page_layout_section(colors,fonts,sec->page_sec);
321     scan_text_and_layout(colors,fonts,sec->paragraphs);
322     scan_word_styles_section(colors,fonts,sec->styles_sec);
323     }
324     }
325    
326     static void scan_texted_f(psiconv_list colors,psiconv_list fonts,
327     psiconv_texted_f sec)
328     {
329     if (sec) {
330     scan_page_layout_section(colors,fonts,sec->page_sec);
331     scan_texted_section(colors,fonts,sec->texted_sec);
332     }
333     }
334    
335     static void gen_font_table(FILE *of,psiconv_list fonts)
336     {
337     int i;
338     psiconv_font *font;
339    
340     fprintf(of,"{\\fonttbl");
341     for (i = 0; i < psiconv_list_length(fonts); i++) {
342     font = psiconv_list_get(fonts,i);
343     fprintf(of,"{\\f%d",i);
344 frodo 90 if ((*font)->screenfont == psiconv_font_sansserif)
345 frodo 14 fprintf(of,"\\fswiss");
346 frodo 90 else if ((*font)->screenfont == psiconv_font_nonprop)
347 frodo 14 fprintf(of,"\\fmodern");
348 frodo 90 else if ((*font)->screenfont == psiconv_font_serif)
349 frodo 14 fprintf(of,"\\froman");
350     else
351     fprintf(of,"\\fnil");
352     fprintf(of,"\\cpg1252\\f%s;}",(*font)->name);
353     }
354     fprintf(of,"}\n");
355     }
356    
357     static void gen_color_table(FILE *of, psiconv_list colors)
358     {
359     int i;
360     psiconv_color *color;
361    
362     fprintf(of,"{\\colortbl");
363     for (i = 0; i < psiconv_list_length(colors); i++) {
364     color = psiconv_list_get(colors,i);
365     fprintf(of,"\\red%d\\green%d\\blue%d;",(*color)->red,
366     (*color)->green, (*color)->blue);
367     }
368     fprintf(of,"}\n");
369     }
370    
371     /* This is not necessarily the same as returned by basic_character_layout_status
372     This one is specific for the base point of RTF */
373     static psiconv_character_layout
374     gen_base_char(psiconv_list colors, psiconv_list fonts)
375     {
376 frodo 56 struct psiconv_color_s white = { 0,0,0 };
377     struct psiconv_color_s black = { 0xff,0xff,0xff };
378     struct psiconv_font_s font = { NULL,-1 }; /* Pseudo - not added! */
379 frodo 14
380 frodo 56 struct psiconv_character_layout_s base_char_struct =
381 frodo 14 {
382     &black, /* color */
383     &white, /* back_color */
384     13.0, /* font_size */
385     psiconv_bool_false, /* italic */
386     psiconv_bool_false, /* bold */
387     psiconv_normalscript, /* super_sub */
388     psiconv_bool_false, /* underline */
389 frodo 67 psiconv_bool_false, /* strikethrough */
390 frodo 14 &font, /* font */
391     };
392    
393 frodo 20 font.name = strdup("");
394 frodo 14 add_color(colors,&white);
395     add_color(colors,&black);
396    
397     return psiconv_clone_character_layout(&base_char_struct);
398     }
399    
400 frodo 20 static void diff_char(FILE *of,psiconv_list colors, psiconv_list fonts,
401 frodo 14 const psiconv_character_layout old,
402     const psiconv_character_layout new)
403     {
404     if ((old->font->screenfont != new->font->screenfont) ||
405     strcmp(old->font->name,new->font->name))
406     fprintf(of,"\\f%d",lookup_font(fonts,new->font));
407     if (old->font_size != new->font_size)
408     fprintf(of,"\\fs%d",(int) (new->font_size * 2));
409     if (old->super_sub != new->super_sub) {
410     if (new->super_sub == psiconv_normalscript)
411     fprintf(of,"\\nosupersub");
412     else if (new->super_sub == psiconv_superscript)
413     fprintf(of,"\\super");
414     else if (new->super_sub == psiconv_subscript)
415     fprintf(of,"\\sub");
416     }
417     if (old->bold != new->bold)
418     fprintf(of,"\\b%s",new->bold?"":"0");
419     if (old->italic != new->italic)
420     fprintf(of,"\\i%s",new->italic?"":"0");
421     if (old->underline != new->underline)
422     fprintf(of,"\\ul%s",new->underline?"":"0");
423 frodo 67 if (old->strikethrough != new->strikethrough)
424     fprintf(of,"\\strike%s",new->strikethrough?"":"0");
425 frodo 14 if ((old->color->red != new->color->red) ||
426     (old->color->green != new->color->green) ||
427     (old->color->blue != new->color->blue))
428     fprintf(of,"\\cf%d",lookup_color(colors,new->color));
429     if ((old->back_color->red != new->back_color->red) ||
430     (old->back_color->green != new->back_color->green) ||
431     (old->back_color->blue != new->back_color->blue))
432     fprintf(of,"\\cb%d",lookup_color(colors,new->back_color));
433     }
434    
435    
436     /* Note: this generates also some character formatting; Psion Word and
437     RTF do not agree on what is paragraph-level formatting and what is
438     character-level formatting. The character-level formatting is put
439     at the end. This should work out. */
440     static void gen_paragraph_codes(FILE *of, psiconv_list colors,
441     psiconv_list fonts,
442     psiconv_paragraph_layout para)
443     {
444     if (para->indent_first != 0.0)
445     fprintf(of,"\\fl%d",length_to_twips( para->indent_first));
446     if (para->indent_left != 0.0)
447     fprintf(of,"\\ll%d",length_to_twips(para->indent_left));
448     if (para->indent_right != 0.0)
449     fprintf(of,"\\rl%d",length_to_twips(para->indent_right));
450     if (para->justify_hor != psiconv_justify_left) {
451     if (para->justify_hor == psiconv_justify_right)
452     fprintf(of,"\\qr");
453     else if (para->justify_hor == psiconv_justify_centre)
454     fprintf(of,"\\qc");
455     else if (para->justify_hor == psiconv_justify_full)
456     fprintf(of,"\\qj");
457     /*
458     else if (para->justify_hor == psiconv_justify_left)
459     fprintf(of,"\\ql");
460     */
461     }
462 frodo 67 if (para->linespacing != 0.0)
463     fprintf(of,"\\sl%d",(para->linespacing_exact?-1:1) *
464     length_to_twips(para->linespacing));
465     if (para->space_above != 0.0)
466     fprintf(of,"\\sb%d",length_to_twips(para->space_above));
467     if (para->space_below != 0.0)
468     fprintf(of,"\\sa%d",length_to_twips(para->space_below));
469     if (para->keep_together)
470 frodo 14 fprintf(of,"\\keep");
471 frodo 67 if (para->keep_with_next)
472 frodo 14 fprintf(of,"\\keepn");
473     if (!para->on_next_page)
474     fprintf(of,"pagebb");
475     if (!para->no_widow_protection)
476     fprintf(of,"\\nowidctlpar");
477     }
478    
479    
480     static void gen_para(FILE *of, psiconv_list colors, psiconv_list fonts,
481     psiconv_paragraph para)
482     {
483     psiconv_character_layout cur_char,base_char;
484     psiconv_in_line_layout inl;
485     int loc,i,j;
486    
487 frodo 147 char ** table;
488     if (encoding == PSICONV_ENCODING_UTF8){
489     table = (char**) utf_table;
490     }else{
491     table = (char**) char_table;
492     }
493    
494 frodo 14 fprintf(of,"\\par\\pard");
495     gen_paragraph_codes(of,colors,fonts,para->base_paragraph);
496    
497     base_char = gen_base_char(colors,fonts);
498     cur_char = base_char;
499    
500     if (psiconv_list_length(para->in_lines) == 0) {
501     diff_char(of,colors,fonts,cur_char,para->base_character);
502     cur_char = para->base_character;
503     }
504     loc = 0;
505    
506     for (i = 0; i < psiconv_list_length(para->in_lines); i++) {
507     inl = psiconv_list_get(para->in_lines,i);
508     diff_char(of,colors,fonts,cur_char,inl->layout);
509     cur_char = inl->layout;
510     for (j = loc; j < inl->length + loc; j ++) {
511 frodo 147 fputs(table[(unsigned char) (para->text[j])],of);
512 frodo 14 }
513     loc = j;
514     }
515    
516     if (loc < strlen(para->text)) {
517     diff_char(of,colors,fonts,cur_char,para->base_character);
518     cur_char = para->base_character;
519     for (j = loc; j < strlen(para->text); j ++) {
520 frodo 147 fputs(table[(unsigned char) (para->text[j])],of);
521 frodo 14 }
522     }
523    
524     psiconv_free_character_layout(base_char);
525     }
526    
527     static void gen_text(FILE *of, psiconv_list colors, psiconv_list fonts,
528     psiconv_text_and_layout paragraphs)
529     {
530     int i;
531     psiconv_paragraph para;
532     fprintf(of,"\\sect");
533     for (i = 0; i < psiconv_list_length(paragraphs); i++) {
534     para = psiconv_list_get(paragraphs,i);
535     gen_para(of,colors,fonts,para);
536     }
537     }
538    
539     static void psiconv_gen_rtf_word(FILE * of, psiconv_word_f wf)
540     {
541     psiconv_list fonts;
542     psiconv_list colors;
543    
544     fonts = psiconv_list_new(sizeof(psiconv_font));
545     colors = psiconv_list_new(sizeof(psiconv_color));
546     scan_word_f(colors,fonts,wf);
547    
548     fputs("{\\rtf1\\ansi\n",of);
549     gen_font_table(of,fonts);
550     gen_color_table(of,colors);
551     gen_text(of,colors,fonts,wf->paragraphs);
552     fputs("}\n",of);
553    
554     psiconv_list_free(fonts);
555     psiconv_list_free(colors);
556    
557     }
558    
559     static void psiconv_gen_rtf_texted(FILE * of, psiconv_texted_f tf)
560     {
561     psiconv_list fonts;
562     psiconv_list colors;
563    
564     fonts = psiconv_list_new(sizeof(psiconv_font));
565     colors = psiconv_list_new(sizeof(psiconv_color));
566     scan_texted_f(colors,fonts,tf);
567    
568     fputs("{\\rtf1\\ansi\n",of);
569     gen_font_table(of,fonts);
570     gen_color_table(of,colors);
571     gen_text(of,colors,fonts,tf->texted_sec->paragraphs);
572     fputs("}\n",of);
573    
574     psiconv_list_free(fonts);
575     psiconv_list_free(colors);
576     }
577    
578 frodo 53 static int psiconv_gen_rtf(const char *filename, const psiconv_file file,
579 frodo 147 const char *dest, const psiconv_encoding encoding_type)
580 frodo 14 {
581 frodo 53 FILE *of = fopen(filename,"w");
582     if (! of)
583     return -1;
584    
585 frodo 147 encoding = encoding_type;
586 frodo 34 if (file->type == psiconv_word_file) {
587 frodo 14 psiconv_gen_rtf_word(of,(psiconv_word_f) file->file);
588 frodo 34 } else if (file->type == psiconv_texted_file) {
589 frodo 14 psiconv_gen_rtf_texted(of,(psiconv_texted_f) file->file);
590 frodo 53 } else {
591     fclose(of);
592 frodo 34 return -1;
593 frodo 53 }
594     return fclose(of);
595 frodo 14 }
596    
597 frodo 56 static struct psiconv_fileformat_s ff =
598 frodo 34 {
599     "RTF",
600     "Rich Text Format (not functional yet!)",
601     psiconv_gen_rtf
602     };
603    
604     void init_rtf(void)
605     {
606 frodo 36 /* psiconv_list_add(fileformat_list,&ff); */
607 frodo 34 }
608    

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