… | |
… | |
66 | /* 0xf0 */ "\xf0", "\xf1", "\xf2", "\xf3", "\xf4", "\xf5", "\xf6", "\xf7", |
66 | /* 0xf0 */ "\xf0", "\xf1", "\xf2", "\xf3", "\xf4", "\xf5", "\xf6", "\xf7", |
67 | /* 0xf8 */ "\xf8", "\xf9", "\xfa", "\xfb", "\xfc", "\xfd", "\xfe", "\xff", |
67 | /* 0xf8 */ "\xf8", "\xf9", "\xfa", "\xfb", "\xfc", "\xfd", "\xfe", "\xff", |
68 | }; |
68 | }; |
69 | |
69 | |
70 | |
70 | |
|
|
71 | |
71 | static void fput_text(FILE * of, const char *text, int length) { |
72 | static void fput_text(FILE * of, const char *text, int length) { |
72 | int j; |
73 | int j; |
73 | |
74 | |
74 | for (j = 0; j < length; j++) { |
75 | for (j = 0; j < length; j++) { |
75 | fputs(char_table[(unsigned char) (text[j])], of); |
76 | fputs(char_table[(unsigned char) (text[j])], of); |
76 | } |
77 | } |
77 | } |
78 | } |
78 | |
79 | |
|
|
80 | static int length_to_twips(psiconv_length_t len) |
|
|
81 | { |
|
|
82 | return 1440.0 / 2.54 * len; |
|
|
83 | } |
|
|
84 | |
|
|
85 | static int lookup_color(psiconv_list colors,psiconv_color color) |
|
|
86 | { |
|
|
87 | int i; |
|
|
88 | psiconv_color comp; |
|
|
89 | for (i = 0; i < psiconv_list_length(colors); i ++) { |
|
|
90 | comp = * (psiconv_color *) psiconv_list_get(colors,i); |
|
|
91 | if ((comp->red == color->red) && (comp->green == color->green) && |
|
|
92 | (comp->blue == color->blue)) |
|
|
93 | return i; |
|
|
94 | } |
|
|
95 | return -1; |
|
|
96 | } |
|
|
97 | |
79 | static void add_color(psiconv_list colors, psiconv_color color) |
98 | static void add_color(psiconv_list colors, psiconv_color color) |
80 | { |
99 | { |
81 | int i; |
|
|
82 | psiconv_color comp; |
|
|
83 | if (color) { |
100 | if (color) |
84 | for (i = 0; i < psiconv_list_length(colors); i ++) { |
101 | if (lookup_color(colors,color) < 0) |
85 | comp = * (psiconv_color *) psiconv_list_get(colors,i); |
|
|
86 | if ((comp->red == color->red) && (comp->green == color->green) && |
|
|
87 | (comp->blue == color->blue)) |
|
|
88 | return; |
|
|
89 | } |
|
|
90 | psiconv_list_add(colors,&color); |
102 | psiconv_list_add(colors,&color); |
|
|
103 | } |
|
|
104 | |
|
|
105 | static int lookup_font(psiconv_list fonts,psiconv_font font) |
|
|
106 | { |
|
|
107 | int i; |
|
|
108 | psiconv_font comp; |
|
|
109 | for (i = 0; i < psiconv_list_length(fonts); i ++) { |
|
|
110 | comp = *(psiconv_font *) psiconv_list_get(fonts,i); |
|
|
111 | if ((comp->screenfont == font->screenfont) && |
|
|
112 | ! strcmp(comp->name,font->name)) |
|
|
113 | return i; |
91 | } |
114 | } |
|
|
115 | return -1; |
92 | } |
116 | } |
93 | |
117 | |
94 | static void add_font(psiconv_list fonts, psiconv_font font) |
118 | static void add_font(psiconv_list fonts, psiconv_font font) |
95 | { |
119 | { |
96 | int i; |
|
|
97 | psiconv_font comp; |
|
|
98 | if (font) { |
120 | if (font) |
99 | for (i = 0; i < psiconv_list_length(fonts); i ++) { |
121 | if (lookup_font(fonts,font) < 0) |
100 | comp = *(psiconv_font *) psiconv_list_get(fonts,i); |
|
|
101 | if ((comp->screenfont == font->screenfont) && |
|
|
102 | ! strcmp(comp->name,font->name)) |
|
|
103 | return; |
|
|
104 | } |
|
|
105 | psiconv_list_add(fonts,&font); |
122 | psiconv_list_add(fonts,&font); |
106 | } |
|
|
107 | } |
123 | } |
108 | |
124 | |
109 | static void scan_border(psiconv_list colors,psiconv_list fonts, |
125 | static void scan_border(psiconv_list colors,psiconv_list fonts, |
110 | psiconv_border sec) |
126 | psiconv_border sec) |
111 | { |
127 | { |
… | |
… | |
266 | scan_page_layout_section(colors,fonts,sec->page_sec); |
282 | scan_page_layout_section(colors,fonts,sec->page_sec); |
267 | scan_texted_section(colors,fonts,sec->texted_sec); |
283 | scan_texted_section(colors,fonts,sec->texted_sec); |
268 | } |
284 | } |
269 | } |
285 | } |
270 | |
286 | |
271 | static gen_font_table(FILE *of,psiconv_list fonts) |
287 | static void gen_font_table(FILE *of,psiconv_list fonts) |
272 | { |
288 | { |
273 | int i; |
289 | int i; |
274 | psiconv_font *font; |
290 | psiconv_font *font; |
275 | |
291 | |
276 | fprintf(of,"{\\fonttbl"); |
292 | fprintf(of,"{\\fonttbl"); |
… | |
… | |
288 | fprintf(of,"\\cpg1252\\f%s;}",(*font)->name); |
304 | fprintf(of,"\\cpg1252\\f%s;}",(*font)->name); |
289 | } |
305 | } |
290 | fprintf(of,"}\n"); |
306 | fprintf(of,"}\n"); |
291 | } |
307 | } |
292 | |
308 | |
293 | static gen_color_table(FILE *of, psiconv_list colors) |
309 | static void gen_color_table(FILE *of, psiconv_list colors) |
294 | { |
310 | { |
295 | int i; |
311 | int i; |
296 | psiconv_color *color; |
312 | psiconv_color *color; |
297 | |
313 | |
298 | fprintf(of,"{\\colortbl"); |
314 | fprintf(of,"{\\colortbl"); |
… | |
… | |
302 | (*color)->green, (*color)->blue); |
318 | (*color)->green, (*color)->blue); |
303 | } |
319 | } |
304 | fprintf(of,"}\n"); |
320 | fprintf(of,"}\n"); |
305 | } |
321 | } |
306 | |
322 | |
|
|
323 | /* This is not necessarily the same as returned by basic_character_layout_status |
|
|
324 | This one is specific for the base point of RTF */ |
|
|
325 | static psiconv_character_layout |
|
|
326 | gen_base_char(psiconv_list colors, psiconv_list fonts) |
|
|
327 | { |
|
|
328 | struct psiconv_color white = { 0,0,0 }; |
|
|
329 | struct psiconv_color black = { 0xff,0xff,0xff }; |
|
|
330 | struct psiconv_font font = { strdup(""),-1 }; /* Pseudo - not added! */ |
|
|
331 | |
|
|
332 | struct psiconv_character_layout base_char_struct = |
|
|
333 | { |
|
|
334 | &black, /* color */ |
|
|
335 | &white, /* back_color */ |
|
|
336 | 13.0, /* font_size */ |
|
|
337 | psiconv_bool_false, /* italic */ |
|
|
338 | psiconv_bool_false, /* bold */ |
|
|
339 | psiconv_normalscript, /* super_sub */ |
|
|
340 | psiconv_bool_false, /* underline */ |
|
|
341 | psiconv_bool_false, /* strike_out */ |
|
|
342 | &font, /* font */ |
|
|
343 | }; |
|
|
344 | |
|
|
345 | add_color(colors,&white); |
|
|
346 | add_color(colors,&black); |
|
|
347 | |
|
|
348 | return psiconv_clone_character_layout(&base_char_struct); |
|
|
349 | } |
|
|
350 | |
|
|
351 | void diff_char(FILE *of,psiconv_list colors, psiconv_list fonts, |
|
|
352 | const psiconv_character_layout old, |
|
|
353 | const psiconv_character_layout new) |
|
|
354 | { |
|
|
355 | if ((old->font->screenfont != new->font->screenfont) || |
|
|
356 | strcmp(old->font->name,new->font->name)) |
|
|
357 | fprintf(of,"\\f%d",lookup_font(fonts,new->font)); |
|
|
358 | if (old->font_size != new->font_size) |
|
|
359 | fprintf(of,"\\fs%d",(int) (new->font_size * 2)); |
|
|
360 | if (old->super_sub != new->super_sub) { |
|
|
361 | if (new->super_sub == psiconv_normalscript) |
|
|
362 | fprintf(of,"\\nosupersub"); |
|
|
363 | else if (new->super_sub == psiconv_superscript) |
|
|
364 | fprintf(of,"\\super"); |
|
|
365 | else if (new->super_sub == psiconv_subscript) |
|
|
366 | fprintf(of,"\\sub"); |
|
|
367 | } |
|
|
368 | if (old->bold != new->bold) |
|
|
369 | fprintf(of,"\\b%s",new->bold?"":"0"); |
|
|
370 | if (old->italic != new->italic) |
|
|
371 | fprintf(of,"\\i%s",new->italic?"":"0"); |
|
|
372 | if (old->underline != new->underline) |
|
|
373 | fprintf(of,"\\ul%s",new->underline?"":"0"); |
|
|
374 | if (old->strike_out != new->strike_out) |
|
|
375 | fprintf(of,"\\strike%s",new->strike_out?"":"0"); |
|
|
376 | if ((old->color->red != new->color->red) || |
|
|
377 | (old->color->green != new->color->green) || |
|
|
378 | (old->color->blue != new->color->blue)) |
|
|
379 | fprintf(of,"\\cf%d",lookup_color(colors,new->color)); |
|
|
380 | if ((old->back_color->red != new->back_color->red) || |
|
|
381 | (old->back_color->green != new->back_color->green) || |
|
|
382 | (old->back_color->blue != new->back_color->blue)) |
|
|
383 | fprintf(of,"\\cb%d",lookup_color(colors,new->back_color)); |
|
|
384 | } |
|
|
385 | |
|
|
386 | |
|
|
387 | /* Note: this generates also some character formatting; Psion Word and |
|
|
388 | RTF do not agree on what is paragraph-level formatting and what is |
|
|
389 | character-level formatting. The character-level formatting is put |
|
|
390 | at the end. This should work out. */ |
|
|
391 | static void gen_paragraph_codes(FILE *of, psiconv_list colors, |
|
|
392 | psiconv_list fonts, |
|
|
393 | psiconv_paragraph_layout para) |
|
|
394 | { |
|
|
395 | if (para->indent_first != 0.0) |
|
|
396 | fprintf(of,"\\fl%d",length_to_twips( para->indent_first)); |
|
|
397 | if (para->indent_left != 0.0) |
|
|
398 | fprintf(of,"\\ll%d",length_to_twips(para->indent_left)); |
|
|
399 | if (para->indent_right != 0.0) |
|
|
400 | fprintf(of,"\\rl%d",length_to_twips(para->indent_right)); |
|
|
401 | if (para->justify_hor != psiconv_justify_left) { |
|
|
402 | if (para->justify_hor == psiconv_justify_right) |
|
|
403 | fprintf(of,"\\qr"); |
|
|
404 | else if (para->justify_hor == psiconv_justify_centre) |
|
|
405 | fprintf(of,"\\qc"); |
|
|
406 | else if (para->justify_hor == psiconv_justify_full) |
|
|
407 | fprintf(of,"\\qj"); |
|
|
408 | /* |
|
|
409 | else if (para->justify_hor == psiconv_justify_left) |
|
|
410 | fprintf(of,"\\ql"); |
|
|
411 | */ |
|
|
412 | } |
|
|
413 | if (para->interline != 0.0) |
|
|
414 | fprintf(of,"\\sl%d",(para->interline_exact?-1:1) * |
|
|
415 | length_to_twips(para->interline)); |
|
|
416 | if (para->top_space != 0.0) |
|
|
417 | fprintf(of,"\\sb%d",length_to_twips(para->top_space)); |
|
|
418 | if (para->bottom_space != 0.0) |
|
|
419 | fprintf(of,"\\sa%d",length_to_twips(para->bottom_space)); |
|
|
420 | if (para->on_one_page) |
|
|
421 | fprintf(of,"\\keep"); |
|
|
422 | if (para->together_with) |
|
|
423 | fprintf(of,"\\keepn"); |
|
|
424 | if (!para->on_next_page) |
|
|
425 | fprintf(of,"pagebb"); |
|
|
426 | if (!para->no_widow_protection) |
|
|
427 | fprintf(of,"\\nowidctlpar"); |
|
|
428 | } |
|
|
429 | |
|
|
430 | |
|
|
431 | static void gen_para(FILE *of, psiconv_list colors, psiconv_list fonts, |
|
|
432 | psiconv_paragraph para) |
|
|
433 | { |
|
|
434 | psiconv_character_layout cur_char,base_char; |
|
|
435 | psiconv_in_line_layout inl; |
|
|
436 | int loc,i,j; |
|
|
437 | |
|
|
438 | fprintf(of,"\\par\\pard"); |
|
|
439 | gen_paragraph_codes(of,colors,fonts,para->base_paragraph); |
|
|
440 | |
|
|
441 | base_char = gen_base_char(colors,fonts); |
|
|
442 | cur_char = base_char; |
|
|
443 | |
|
|
444 | if (psiconv_list_length(para->in_lines) == 0) { |
|
|
445 | diff_char(of,colors,fonts,cur_char,para->base_character); |
|
|
446 | cur_char = para->base_character; |
|
|
447 | } |
|
|
448 | loc = 0; |
|
|
449 | |
|
|
450 | for (i = 0; i < psiconv_list_length(para->in_lines); i++) { |
|
|
451 | inl = psiconv_list_get(para->in_lines,i); |
|
|
452 | diff_char(of,colors,fonts,cur_char,inl->layout); |
|
|
453 | cur_char = inl->layout; |
|
|
454 | for (j = loc; j < inl->length + loc; j ++) { |
|
|
455 | fputs(char_table[(unsigned char) (para->text[j])],of); |
|
|
456 | } |
|
|
457 | loc = j; |
|
|
458 | } |
|
|
459 | |
|
|
460 | if (loc < strlen(para->text)) { |
|
|
461 | diff_char(of,colors,fonts,cur_char,para->base_character); |
|
|
462 | cur_char = para->base_character; |
|
|
463 | for (j = loc; j < strlen(para->text); j ++) { |
|
|
464 | fputs(char_table[(unsigned char) (para->text[j])],of); |
|
|
465 | } |
|
|
466 | } |
|
|
467 | |
|
|
468 | psiconv_free_character_layout(base_char); |
|
|
469 | } |
|
|
470 | |
|
|
471 | static void gen_text(FILE *of, psiconv_list colors, psiconv_list fonts, |
|
|
472 | psiconv_text_and_layout paragraphs) |
|
|
473 | { |
|
|
474 | int i; |
|
|
475 | psiconv_paragraph para; |
|
|
476 | fprintf(of,"\\sect"); |
|
|
477 | for (i = 0; i < psiconv_list_length(paragraphs); i++) { |
|
|
478 | para = psiconv_list_get(paragraphs,i); |
|
|
479 | gen_para(of,colors,fonts,para); |
|
|
480 | } |
|
|
481 | } |
|
|
482 | |
307 | static void psiconv_gen_rtf_word(FILE * of, psiconv_word_f wf) |
483 | static void psiconv_gen_rtf_word(FILE * of, psiconv_word_f wf) |
308 | { |
484 | { |
309 | psiconv_list fonts; |
485 | psiconv_list fonts; |
310 | psiconv_list colors; |
486 | psiconv_list colors; |
311 | |
487 | |
… | |
… | |
314 | scan_word_f(colors,fonts,wf); |
490 | scan_word_f(colors,fonts,wf); |
315 | |
491 | |
316 | fputs("{\\rtf1\\ansi\n",of); |
492 | fputs("{\\rtf1\\ansi\n",of); |
317 | gen_font_table(of,fonts); |
493 | gen_font_table(of,fonts); |
318 | gen_color_table(of,colors); |
494 | gen_color_table(of,colors); |
|
|
495 | gen_text(of,colors,fonts,wf->paragraphs); |
319 | fputs("}\n",of); |
496 | fputs("}\n",of); |
320 | |
497 | |
321 | psiconv_list_free(fonts); |
498 | psiconv_list_free(fonts); |
322 | psiconv_list_free(colors); |
499 | psiconv_list_free(colors); |
323 | |
500 | |
… | |
… | |
333 | scan_texted_f(colors,fonts,tf); |
510 | scan_texted_f(colors,fonts,tf); |
334 | |
511 | |
335 | fputs("{\\rtf1\\ansi\n",of); |
512 | fputs("{\\rtf1\\ansi\n",of); |
336 | gen_font_table(of,fonts); |
513 | gen_font_table(of,fonts); |
337 | gen_color_table(of,colors); |
514 | gen_color_table(of,colors); |
|
|
515 | gen_text(of,colors,fonts,tf->texted_sec->paragraphs); |
338 | fputs("}\n",of); |
516 | fputs("}\n",of); |
339 | |
517 | |
340 | psiconv_list_free(fonts); |
518 | psiconv_list_free(fonts); |
341 | psiconv_list_free(colors); |
519 | psiconv_list_free(colors); |
342 | } |
520 | } |