program/psiconv/gen_html.c

/*
    gen_html.c - Part of psiconv, a PSION 5 file formats converter
    Copyright (c) 1999  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.
*/
/*
    2002/Apr.    Keita KAWABE
    A: <META HTTP-EQUIV="Content-Type" CONTENT="text/html"> header
       was added.

    B: Support for narrow build Asian Psions added.
       If the encoding_type is PSICONV_ENCODING_UTF8,
       B-1:  use utf8_table for character conversion.
       B-2:  add the "Charset=UTF-8" in the Content-Type header.
       Otherwise proceed as normal.
*/

#include "config.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "psiconv/data.h"
#include "psiconv/list.h"
#include "gen.h"
#include "psiconv.h"

#ifdef DMALLOC
#include "dmalloc.h"
#endif

/* This determines for each character how it is displayed */
static const char *char_table[0x100] =
{ 
  /* 0x00 */ ""     ,""     ,""     ,""     ,""     ,""     ,"<P>  ","<BR>"  ,
  /* 0x08 */ "<P>"  ," "    ,""     ,""     ,""     ,""     ,""     ,""      ,
  /* 0x10 */ " "    ,""     ,""     ,""     ,""     ,""     ,""     ,""      ,
  /* 0x18 */ ""     ,""     ,""     ,""     ,""     ,""     ,""     ,""      ,
  /* 0x20 */ " "    ,"!"    ,"&quot;","#"   ,"$"    ,"%"    ,"&amp;","'"     ,
  /* 0x28 */ "("    ,")"    ,"*"    ,"+"    ,","    ,"-"    ,"."    ,"/"     ,
  /* 0x30 */ "0"    ,"1"    ,"2"    ,"3"    ,"4"    ,"5"    ,"6"    ,"7"     ,
  /* 0x38 */ "8"    ,"9"    ,":"    ,";"    ,"&lt;"  ,"="   ,"&gt;" ,"?"     ,
  /* 0x40 */ "@"    ,"A"    ,"B"    ,"C"    ,"D"    ,"E"    ,"F"    ,"G"     ,
  /* 0x48 */ "H"    ,"I"    ,"J"    ,"K"    ,"L"    ,"M"    ,"N"    ,"O"     ,
  /* 0x50 */ "P"    ,"Q"    ,"R"    ,"S"    ,"T"    ,"U"    ,"V"    ,"W"     ,
  /* 0x58 */ "X"    ,"Y"    ,"Z"    ,"["    ,"\\"   ,"]"    ,"^"    ,"_"     ,
  /* 0x60 */ "`"    ,"a"    ,"b"    ,"c"    ,"d"    ,"e"    ,"f"    ,"g"     ,
  /* 0x68 */ "h"    ,"i"    ,"j"    ,"k"    ,"l"    ,"m"    ,"n"    ,"o"     ,
  /* 0x70 */ "p"    ,"q"    ,"r"    ,"s"    ,"t"    ,"u"    ,"v"    ,"w"     ,
  /* 0x78 */ "x"    ,"y"    ,"z"    ,"{"    ,"|"    ,"}"    ,"~"    ,""      ,
  /* 0x80 */ ""     ,"","&sbquot;","&fnof;","&bdquo;","&hellip;",
                                                        "&dagger;","&Dagger;",
  /* 0x88 */ "^","&permil;","&Scaron;","&lang;","&OElig;","" ,""    ,""      ,
  /* 0x90 */ "","&lsquo;","&rsquo;","&ldquo;","&rdquo;",
                                                 "&middot;","&ndash","&mdash",
  /* 0x98 */ "&tilde;","&trade;","&scaron;","&rang;","&oelig;","","","&Yuml;",
  /* 0xa0 */ "","&iexcl;","&cent;","&pound;",
                                         "&curren;","&yen;","&brvbar;","&sect",
  /* 0xa8 */ "&quot;","&copy;","a","&laquo;","&not;","-","&reg;","&macron;",
  /* 0xb0 */ "&deg;","&plusmn;","&sup2;","&sup3;",
                                    "&rsquot;","&micron;","&para;","&middot;",
  /* 0xb8 */ "&comma;","&sup1","&deg;","&raquo;",
                                  "&frac14;","&frac12;","&frac34;","&iquest;",
  /* 0xc0 */ "&Agrave;","&Aacute;","&Acirc;","&Atilde;",
                                      "&Auml;","&Aring;","&AElig;","&Ccedil;",
  /* 0xc8 */ "&Egrave;","&Eacute;","&Ecirc;","&Euml;",
                                     "&Igrave;","&Iacute;","&Icirc;","&Iuml;",
  /* 0xd0 */ "&ETH;","&Ntilde;","&Ograve;","&Oacute;",
                                      "&Ocirc;","&Otilde;","&Ouml;","&times;",
  /* 0xd8 */ "&Oslash;","&Ugrave;","&Uacute;","&Ucirc;",
                                      "&Uuml;","&Yacute;","&THORN;","&szlig;",
  /* 0xe0 */ "&agrave;","&aacute;","&acirc;","&atilde;",
                                      "&auml;","&aring;","&aelig;","&ccedil;",
  /* 0xe8 */ "&egrave;","&eacute;","&ecirc;","&euml;",
                                     "&igrave;","&iacute;","&icirc;","&iuml;",
  /* 0xf0 */ "&eth;","&ntilde;","&ograve;","&oacute;",
                                     "&ocirc;","&otilde;","&ouml;","&divide;",
  /* 0xf8 */ "&oslash;","&ugrave;","&uacute;","&ucirc;",
                                       "&uuml;","&yacute;","&thorn;","&yuml;"
};

static const char *utf_table[0x100] =
{ 
  /* 0x00 */ ""     ,""     ,""     ,""     ,""     ,""     ,"<P>  ","<BR>"  ,
  /* 0x08 */ "<P>"  ," "    ,""     ,""     ,""     ,""     ,""     ,""      ,
  /* 0x10 */ " "    ,""     ,""     ,""     ,""     ,""     ,""     ,""      ,
  /* 0x18 */ ""     ,""     ,""     ,""     ,""     ,""     ,""     ,""      ,
  /* 0x20 */ " "    ,"!"    ,"&quot;","#"   ,"$"    ,"%"    ,"&amp;","'"     ,
  /* 0x28 */ "("    ,")"    ,"*"    ,"+"    ,","    ,"-"    ,"."    ,"/"     ,
  /* 0x30 */ "0"    ,"1"    ,"2"    ,"3"    ,"4"    ,"5"    ,"6"    ,"7"     ,
  /* 0x38 */ "8"    ,"9"    ,":"    ,";"    ,"&lt;"  ,"="   ,"&gt;" ,"?"     ,
  /* 0x40 */ "@"    ,"A"    ,"B"    ,"C"    ,"D"    ,"E"    ,"F"    ,"G"     ,
  /* 0x48 */ "H"    ,"I"    ,"J"    ,"K"    ,"L"    ,"M"    ,"N"    ,"O"     ,
  /* 0x50 */ "P"    ,"Q"    ,"R"    ,"S"    ,"T"    ,"U"    ,"V"    ,"W"     ,
  /* 0x58 */ "X"    ,"Y"    ,"Z"    ,"["    ,"\\"   ,"]"    ,"^"    ,"_"     ,
  /* 0x60 */ "`"    ,"a"    ,"b"    ,"c"    ,"d"    ,"e"    ,"f"    ,"g"     ,
  /* 0x68 */ "h"    ,"i"    ,"j"    ,"k"    ,"l"    ,"m"    ,"n"    ,"o"     ,
  /* 0x70 */ "p"    ,"q"    ,"r"    ,"s"    ,"t"    ,"u"    ,"v"    ,"w"     ,
  /* 0x78 */ "x"    ,"y"    ,"z"    ,"{"    ,"|"    ,"}"    ,"~"    ,""      ,
  /* 0x80 */ "\x80", "\x81", "\x82", "\x83", "\x84", "\x85", "\x86", "\x87",
  /* 0x88 */ "\x88", "\x89", "\x8a", "\x8b", "\x8c", "\x8d", "\x8e", "\x8f",
  /* 0x90 */ "\x90", "\x91", "\x92", "\x93", "\x94", "\x95", "\x96", "\x97",
  /* 0x98 */ "\x98", "\x99", "\x9a", "\x9b", "\x9c", "\x9d", "\x9e", "\x9f",
  /* 0xa0 */ "\xa0", "\xa1", "\xa2", "\xa3", "\xa4", "\xa5", "\xa6", "\xa7",
  /* 0xa8 */ "\xa8", "\xa9", "\xaa", "\xab", "\xac", "\xad", "\xae", "\xaf",
  /* 0xb0 */ "\xb0", "\xb1", "\xb2", "\xb3", "\xb4", "\xb5", "\xb6", "\xb7",
  /* 0xb8 */ "\xb8", "\xb9", "\xba", "\xbb", "\xbc", "\xbd", "\xbe", "\xbf",
  /* 0xc0 */ "\xc0", "\xc1", "\xc2", "\xc3", "\xc4", "\xc5", "\xc6", "\xc7",
  /* 0xc8 */ "\xc8", "\xc9", "\xca", "\xcb", "\xcc", "\xcd", "\xce", "\xcf",
  /* 0xd0 */ "\xd0", "\xd1", "\xd2", "\xd3", "\xd4", "\xd5", "\xd6", "\xd7",
  /* 0xd8 */ "\xd8", "\xd9", "\xda", "\xdb", "\xdc", "\xdd", "\xde", "\xdf",
  /* 0xe0 */ "\xe0", "\xe1", "\xe2", "\xe3", "\xe4", "\xe5", "\xe6", "\xe7",
  /* 0xe8 */ "\xe8", "\xe9", "\xea", "\xeb", "\xec", "\xed", "\xee", "\xef",
  /* 0xf0 */ "\xf0", "\xf1", "\xf2", "\xf3", "\xf4", "\xf5", "\xf6", "\xf7",
  /* 0xf8 */ "\xf8", "\xf9", "\xfa", "\xfb", "\xfc", "\xfd", "\xfe", "\xff",
};

/* a flag to indicate the use of UTF8 */
static psiconv_encoding encoding= PSICONV_ENCODING_CP1252;

static psiconv_character_layout gen_base_char(const psiconv_font font,
                                              const psiconv_color color,
                                              const psiconv_color back_color);
static void diff_char(FILE *of, const psiconv_character_layout old, 
                      const psiconv_character_layout new, int *flags);
static void gen_para(FILE *of, const psiconv_paragraph para, 
                     const psiconv_character_layout base_char);

static void psiconv_gen_html_word(FILE *of,psiconv_word_f wf);
static void psiconv_gen_html_texted(FILE *of,psiconv_texted_f tf);

/* This is not necessarily the same as returned by basic_character_layout_status
   This one is specific for the base point of HTML */
psiconv_character_layout gen_base_char(const psiconv_font font,
                                       const psiconv_color color,
                                       const psiconv_color back_color)
{
  struct psiconv_character_layout_s base_char_struct =
  {
    NULL,                  /* color               */
    NULL,                  /* back_color          */
    13.0,                  /* font_size           */
    psiconv_bool_false,    /* italic              */
    psiconv_bool_false,    /* bold                */
    psiconv_normalscript,  /* super_sub           */
    psiconv_bool_false,    /* underline           */
    psiconv_bool_false,    /* strikethrough       */
    NULL,                  /* font                */
  };
  base_char_struct.color = color;
  base_char_struct.back_color = back_color;
  base_char_struct.font = font;
  return psiconv_clone_character_layout(&base_char_struct);
}

/* flags & 1: 0 if no <FONT> was yet generated.
   flags & 2: 1 if at end-of-paragraph
*/
void diff_char(FILE *of, const psiconv_character_layout old, 
               const psiconv_character_layout new, 
               int *flags)
{
  int font_set = 0;

  if ((old->font_size != new->font_size) ||
      (old->color->red != new->color->red) ||
      (old->color->green != new->color->green) ||
      (old->color->blue != new->color->blue) ||
      (strcmp(old->font->name,new->font->name)) ||
      (old->font->screenfont != new->font->screenfont) ||
      ((*flags & 0x03) == 3)) {
    if (old->italic)
      fputs("</I>",of);
    if (old->bold)
      fputs("</B>",of);
    if (old->underline)
      fputs("</U>",of);
    if (old->strikethrough)
      fputs("</STRIKE>",of);
    if (old->super_sub == psiconv_superscript)
      fputs("</SUP>",of);
    if (old->super_sub == psiconv_subscript)
      fputs("</SUB>",of);
    if ((*flags & 1) == 1) 
      fputs("</FONT>",of);
    if ((*flags & 2) == 0) {
      *flags |= 1;
      fputs("<FONT SIZE=",of);
      if (new->font_size <= 8.0)
        fputs("1",of);
      else if (new->font_size <= 10.0)
        fputs("2",of);
      else if (new->font_size <= 12.0)
        fputs("3",of);
      else if (new->font_size <= 14.0)
        fputs("4",of);
      else if (new->font_size <= 18.0)
        fputs("5",of);
      else if (new->font_size <= 24.0)
        fputs("6",of);
      else 
        fputs("7",of);
      fprintf(of," COLOR=#%02x%02x%02x",new->color->red,new->color->green,
              new->color->blue);
      if (new->font->screenfont == psiconv_font_sansserif)
        fprintf(of," FACE=\"%s, Sans-Serif\">",new->font->name);
      else if (new->font->screenfont == psiconv_font_nonprop)
        fprintf(of," FACE=\"%s, Monospace\">",new->font-> name);
      else if (new->font->screenfont == psiconv_font_serif)
        fprintf(of," FACE=\"%s, Serif\">",new->font-> name);
      else
        fprintf(of," FACE=\"%s, Serif\">",new->font-> name);
    }
    if (new->italic)
      fputs("<I>",of);
    if (new->bold)
      fputs("<B>",of);
    if (new->underline)
      fputs("<U>",of);
    if (new->strikethrough)
      fputs("<STRIKE>",of);
    if (new->super_sub == psiconv_superscript)
      fputs("<SUP>",of);
    if (new->super_sub == psiconv_subscript)
      fputs("<SUB>",of);
  } else {
    if (font_set || (old->italic != new->italic)) {
      if (old->italic)
        fputs("</I>",of);
      else
        fputs("<I>",of);
    }
    if (old->bold != new->bold) {
      if (old->bold)
        fputs("</B>",of);
      else
        fputs("<B>",of);
    }
    if (old->underline != new->underline) {
      if (old->underline)
        fputs("</U>",of);
      else
        fputs("<U>",of);
    }
    if (old->strikethrough != new->strikethrough) {
      if (old->strikethrough)
        fputs("</STRIKE>",of);
      else
        fputs("<STRIKE>",of);
    }
    if (old->super_sub != new->super_sub) {
      if (old->super_sub == psiconv_superscript) 
        fputs("</SUP>",of);
      else if (old->super_sub == psiconv_subscript)
        fputs("</SUB>",of);
      if (new->super_sub == psiconv_superscript) 
        fputs("<SUP>",of);
      else if (new->super_sub == psiconv_subscript)
        fputs("<SUB>",of);
    }
  }
}

void gen_para(FILE *of, const psiconv_paragraph para, 
              const psiconv_character_layout base_char) 
{
  int i,j,loc;
  psiconv_character_layout cur_char;
  psiconv_in_line_layout inl;
  int flags = 0;

  char **table;
  if (encoding == PSICONV_ENCODING_UTF8){
    table=(char**)utf_table;
  }else{
    table=(char**)char_table;
  }
    

  fputs("<P",of);
  if (para->base_paragraph->justify_hor == psiconv_justify_left)
    fputs(" ALIGN=left",of);
  else if (para->base_paragraph->justify_hor == psiconv_justify_right)
    fputs(" ALIGN=right",of);
  else if (para->base_paragraph->justify_hor == psiconv_justify_centre)
    fputs(" ALIGN=center",of);
  else if (para->base_paragraph->justify_hor == psiconv_justify_full)
    fputs(" ALIGN=left",of);
  fputs(">",of);
  if (para->base_paragraph->bullet->on)
    fputs("<UL><LI>",of);

  cur_char = base_char;

  if (psiconv_list_length(para->in_lines) == 0) {
    diff_char(of,cur_char,para->base_character,&flags);
    cur_char = para->base_character;
  }
  loc = 0;

  for (i = 0; i < psiconv_list_length(para->in_lines); i++) {
    inl = psiconv_list_get(para->in_lines,i);
    diff_char(of,cur_char,inl->layout,&flags);
    cur_char = inl->layout;
    for (j = loc; j < inl->length + loc; j ++) {
      fputs(table[(unsigned char) (para->text[j])],of);
    }
    loc = j;
  }

  if (loc <  strlen(para->text)) {
    diff_char(of,cur_char,para->base_character,&flags);
    cur_char = para->base_character;
    for (j = loc; j < strlen(para->text); j ++) {
      fputs(table[(unsigned char) (para->text[j])],of);
    }
  }

  if (strlen(para->text) == 0) 
    fputs("<BR>",of);

  flags |= 2;
  diff_char(of,cur_char,base_char,&flags);

  if (para->base_paragraph->bullet->on)
    fputs("</UL>",of);
      
  fputs("</P>\n",of);
}

int psiconv_gen_html(const char * filename,const psiconv_file file, 
                     const char *dest, const psiconv_encoding encoding_type)
{
  FILE *of = fopen(filename,"w");
  if (! of)
    return -1;

  encoding = encoding_type;

  if (file->type == psiconv_word_file) {
    psiconv_gen_html_word(of,(psiconv_word_f) file->file);
  } else if (file->type == psiconv_texted_file) {
    psiconv_gen_html_texted(of,(psiconv_texted_f) file->file);
  } else {
    fclose(of);
    return -1;
  }
  return fclose(of);
}

void psiconv_gen_html_texted(FILE *of,psiconv_texted_f tf)
{
  psiconv_character_layout base_char;
  psiconv_paragraph para;
  int i;

  /* We have nothing better */
  base_char = psiconv_basic_character_layout();

  fputs("<!doctype html public \"-//W3C//DTD HTML 3.2 Final//EN\">", of);
  fputs("\n<HTML>\n<HEAD>\n  <META NAME=\"GENERATOR\"", of);
  fputs(" CONTENT=\"psiconv-" VERSION "\">\n", of);

  fputs("  <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html", of);
  if (encoding == PSICONV_ENCODING_UTF8){
    fputs("; CHARSET=UTF-8", of);
  }
  fputs("\">\n", of);

  fputs("</HEAD>\n",of);
  fputs("<BODY>\n",of);
  for (i = 0; i < psiconv_list_length(tf->texted_sec->paragraphs); i++) {
    para = psiconv_list_get(tf->texted_sec->paragraphs,i);
    gen_para(of,para,base_char);
  }
  fputs("</BODY>\n</HTML>\n",of);
  psiconv_free_character_layout(base_char);
}


void psiconv_gen_html_word(FILE *of,psiconv_word_f wf)
{
  int i;
  psiconv_paragraph para;
  psiconv_color white,black;
  psiconv_character_layout base_char;

  white = malloc(sizeof(*white));
  black = malloc(sizeof(*black));
  white->red = 0x00;
  white->green = 0x00;
  white->blue = 0x00;
  black->red = 0xff;
  black->green = 0xff;
  black->blue = 0xff;

  /* To keep from generating a font desc for each line */
  base_char = gen_base_char(wf->styles_sec->normal->character->font,
                            black,white);

  psiconv_free_color(black);
  psiconv_free_color(white);

  fputs("<!doctype html public \"-//W3C//DTD HTML 3.2 Final//EN\">", of);
  fputs("\n<HTML>\n<HEAD>\n  <META NAME=\"GENERATOR\"", of);
  fputs(" CONTENT=\"psiconv-" VERSION "\">\n", of);

  fputs("  <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html", of);
  if (encoding == PSICONV_ENCODING_UTF8)
    fputs("; CHARSET=UTF-8", of);
  fputs("\">\n", of);

  fputs("</HEAD>\n",of);
  fputs("<BODY>\n",of);

  for (i = 0; i < psiconv_list_length(wf->paragraphs); i++) {
    para = psiconv_list_get(wf->paragraphs,i);
    gen_para(of,para,base_char);
  }
  fputs("</BODY>\n</HTML>\n",of);
  psiconv_free_character_layout(base_char);
}

static struct psiconv_fileformat_s ff = 
  {
    "HTML3",
    "HTML 3.2, not verified so probably not completely compliant",
    &psiconv_gen_html
  };

void init_html(void)
{
  psiconv_list_add(fileformat_list,&ff);
}
1	frodo	14	/*
2			gen_html.c - Part of psiconv, a PSION 5 file formats converter
3			Copyright (c) 1999 Frodo Looijaard <frodol@dds.nl>
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	frodo	147	/*
20			2002/Apr. Keita KAWABE
21			A: <META HTTP-EQUIV="Content-Type" CONTENT="text/html"> header
22			was added.
23	frodo	14
24	frodo	147	B: Support for narrow build Asian Psions added.
25			If the encoding_type is PSICONV_ENCODING_UTF8,
26			B-1: use utf8_table for character conversion.
27			B-2: add the "Charset=UTF-8" in the Content-Type header.
28			Otherwise proceed as normal.
29			*/
30
31	frodo	14	#include "config.h"
32			#include <stdio.h>
33			#include <string.h>
34			#include <stdlib.h>
35	frodo	58	#include "psiconv/data.h"
36			#include "psiconv/list.h"
37	frodo	14	#include "gen.h"
38	frodo	34	#include "psiconv.h"
39	frodo	14
40	frodo	142	#ifdef DMALLOC
41			#include "dmalloc.h"
42			#endif
43
44	frodo	14	/* This determines for each character how it is displayed */
45			static const char *char_table[0x100] =
46			{
47			/* 0x00 */ "" ,"" ,"" ,"" ,"" ,"" ,"<P> ","<BR>" ,
48			/* 0x08 */ "<P>" ," " ,"" ,"" ,"" ,"" ,"" ,"" ,
49			/* 0x10 */ " " ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,
50			/* 0x18 */ "" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,
51			/* 0x20 */ " " ,"!" ,""","#" ,"$" ,"%" ,"&","'" ,
52			/* 0x28 / "(" ,")" ,"" ,"+" ,"," ,"-" ,"." ,"/" ,
53			/* 0x30 */ "0" ,"1" ,"2" ,"3" ,"4" ,"5" ,"6" ,"7" ,
54			/* 0x38 */ "8" ,"9" ,":" ,";" ,"<" ,"=" ,">" ,"?" ,
55			/* 0x40 */ "@" ,"A" ,"B" ,"C" ,"D" ,"E" ,"F" ,"G" ,
56			/* 0x48 */ "H" ,"I" ,"J" ,"K" ,"L" ,"M" ,"N" ,"O" ,
57			/* 0x50 */ "P" ,"Q" ,"R" ,"S" ,"T" ,"U" ,"V" ,"W" ,
58			/* 0x58 */ "X" ,"Y" ,"Z" ,"[" ,"\\" ,"]" ,"^" ,"_" ,
59			/* 0x60 */ "`" ,"a" ,"b" ,"c" ,"d" ,"e" ,"f" ,"g" ,
60			/* 0x68 */ "h" ,"i" ,"j" ,"k" ,"l" ,"m" ,"n" ,"o" ,
61			/* 0x70 */ "p" ,"q" ,"r" ,"s" ,"t" ,"u" ,"v" ,"w" ,
62			/* 0x78 */ "x" ,"y" ,"z" ,"{" ,"\|" ,"}" ,"~" ,"" ,
63			/* 0x80 */ "" ,"","&sbquot;","&fnof;","&bdquo;","…",
64			"&dagger;","&Dagger;",
65			/* 0x88 */ "^","&permil;","&Scaron;","&lang;","&OElig;","" ,"" ,"" ,
66			/* 0x90 */ "","‘","’","“","”",
67			"·","&ndash","&mdash",
68			/* 0x98 */ "&tilde;","™","&scaron;","&rang;","&oelig;","","","&Yuml;",
69			/* 0xa0 */ "","¡","¢","£",
70			"¤","¥","¦","&sect",
71			/* 0xa8 */ ""","©","a","«","¬","-","®","&macron;",
72			/* 0xb0 */ "°","±","²","³",
73			"&rsquot;","&micron;","¶","·",
74			/* 0xb8 */ ",","&sup1","°","»",
75			"¼","½","¾","¿",
76			/* 0xc0 */ "À","Á","Â","Ã",
77			"Ä","Å","Æ","Ç",
78			/* 0xc8 */ "È","É","Ê","Ë",
79			"Ì","Í","Î","Ï",
80			/* 0xd0 */ "Ð","Ñ","Ò","Ó",
81			"Ô","Õ","Ö","×",
82			/* 0xd8 */ "Ø","Ù","Ú","Û",
83			"Ü","Ý","Þ","ß",
84			/* 0xe0 */ "à","á","â","ã",
85			"ä","å","æ","ç",
86			/* 0xe8 */ "è","é","ê","ë",
87			"ì","í","î","ï",
88			/* 0xf0 */ "ð","ñ","ò","ó",
89			"ô","õ","ö","÷",
90			/* 0xf8 */ "ø","ù","ú","û",
91			"ü","ý","þ","ÿ"
92			};
93
94	frodo	147	static const char *utf_table[0x100] =
95			{
96			/* 0x00 */ "" ,"" ,"" ,"" ,"" ,"" ,"<P> ","<BR>" ,
97			/* 0x08 */ "<P>" ," " ,"" ,"" ,"" ,"" ,"" ,"" ,
98			/* 0x10 */ " " ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,
99			/* 0x18 */ "" ,"" ,"" ,"" ,"" ,"" ,"" ,"" ,
100			/* 0x20 */ " " ,"!" ,""","#" ,"$" ,"%" ,"&","'" ,
101			/* 0x28 / "(" ,")" ,"" ,"+" ,"," ,"-" ,"." ,"/" ,
102			/* 0x30 */ "0" ,"1" ,"2" ,"3" ,"4" ,"5" ,"6" ,"7" ,
103			/* 0x38 */ "8" ,"9" ,":" ,";" ,"<" ,"=" ,">" ,"?" ,
104			/* 0x40 */ "@" ,"A" ,"B" ,"C" ,"D" ,"E" ,"F" ,"G" ,
105			/* 0x48 */ "H" ,"I" ,"J" ,"K" ,"L" ,"M" ,"N" ,"O" ,
106			/* 0x50 */ "P" ,"Q" ,"R" ,"S" ,"T" ,"U" ,"V" ,"W" ,
107			/* 0x58 */ "X" ,"Y" ,"Z" ,"[" ,"\\" ,"]" ,"^" ,"_" ,
108			/* 0x60 */ "`" ,"a" ,"b" ,"c" ,"d" ,"e" ,"f" ,"g" ,
109			/* 0x68 */ "h" ,"i" ,"j" ,"k" ,"l" ,"m" ,"n" ,"o" ,
110			/* 0x70 */ "p" ,"q" ,"r" ,"s" ,"t" ,"u" ,"v" ,"w" ,
111			/* 0x78 */ "x" ,"y" ,"z" ,"{" ,"\|" ,"}" ,"~" ,"" ,
112			/* 0x80 */ "\x80", "\x81", "\x82", "\x83", "\x84", "\x85", "\x86", "\x87",
113			/* 0x88 */ "\x88", "\x89", "\x8a", "\x8b", "\x8c", "\x8d", "\x8e", "\x8f",
114			/* 0x90 */ "\x90", "\x91", "\x92", "\x93", "\x94", "\x95", "\x96", "\x97",
115			/* 0x98 */ "\x98", "\x99", "\x9a", "\x9b", "\x9c", "\x9d", "\x9e", "\x9f",
116			/* 0xa0 */ "\xa0", "\xa1", "\xa2", "\xa3", "\xa4", "\xa5", "\xa6", "\xa7",
117			/* 0xa8 */ "\xa8", "\xa9", "\xaa", "\xab", "\xac", "\xad", "\xae", "\xaf",
118			/* 0xb0 */ "\xb0", "\xb1", "\xb2", "\xb3", "\xb4", "\xb5", "\xb6", "\xb7",
119			/* 0xb8 */ "\xb8", "\xb9", "\xba", "\xbb", "\xbc", "\xbd", "\xbe", "\xbf",
120			/* 0xc0 */ "\xc0", "\xc1", "\xc2", "\xc3", "\xc4", "\xc5", "\xc6", "\xc7",
121			/* 0xc8 */ "\xc8", "\xc9", "\xca", "\xcb", "\xcc", "\xcd", "\xce", "\xcf",
122			/* 0xd0 */ "\xd0", "\xd1", "\xd2", "\xd3", "\xd4", "\xd5", "\xd6", "\xd7",
123			/* 0xd8 */ "\xd8", "\xd9", "\xda", "\xdb", "\xdc", "\xdd", "\xde", "\xdf",
124			/* 0xe0 */ "\xe0", "\xe1", "\xe2", "\xe3", "\xe4", "\xe5", "\xe6", "\xe7",
125			/* 0xe8 */ "\xe8", "\xe9", "\xea", "\xeb", "\xec", "\xed", "\xee", "\xef",
126			/* 0xf0 */ "\xf0", "\xf1", "\xf2", "\xf3", "\xf4", "\xf5", "\xf6", "\xf7",
127			/* 0xf8 */ "\xf8", "\xf9", "\xfa", "\xfb", "\xfc", "\xfd", "\xfe", "\xff",
128			};
129
130			/* a flag to indicate the use of UTF8 */
131			static psiconv_encoding encoding= PSICONV_ENCODING_CP1252;
132
133	frodo	14	static psiconv_character_layout gen_base_char(const psiconv_font font,
134			const psiconv_color color,
135			const psiconv_color back_color);
136			static void diff_char(FILE *of, const psiconv_character_layout old,
137			const psiconv_character_layout new, int *flags);
138			static void gen_para(FILE *of, const psiconv_paragraph para,
139			const psiconv_character_layout base_char);
140
141			static void psiconv_gen_html_word(FILE *of,psiconv_word_f wf);
142			static void psiconv_gen_html_texted(FILE *of,psiconv_texted_f tf);
143
144			/* This is not necessarily the same as returned by basic_character_layout_status
145			This one is specific for the base point of HTML */
146			psiconv_character_layout gen_base_char(const psiconv_font font,
147			const psiconv_color color,
148			const psiconv_color back_color)
149			{
150	frodo	56	struct psiconv_character_layout_s base_char_struct =
151	frodo	14	{
152	frodo	20	NULL, /* color */
153			NULL, /* back_color */
154	frodo	14	13.0, /* font_size */
155			psiconv_bool_false, /* italic */
156			psiconv_bool_false, /* bold */
157			psiconv_normalscript, /* super_sub */
158			psiconv_bool_false, /* underline */
159	frodo	67	psiconv_bool_false, /* strikethrough */
160	frodo	20	NULL, /* font */
161	frodo	14	};
162	frodo	20	base_char_struct.color = color;
163			base_char_struct.back_color = back_color;
164			base_char_struct.font = font;
165	frodo	14	return psiconv_clone_character_layout(&base_char_struct);
166			}
167
168			/* flags & 1: 0 if no <FONT> was yet generated.
169			flags & 2: 1 if at end-of-paragraph
170			*/
171			void diff_char(FILE *of, const psiconv_character_layout old,
172			const psiconv_character_layout new,
173			int *flags)
174			{
175			int font_set = 0;
176
177			if ((old->font_size != new->font_size) \|\|
178			(old->color->red != new->color->red) \|\|
179			(old->color->green != new->color->green) \|\|
180			(old->color->blue != new->color->blue) \|\|
181			(strcmp(old->font->name,new->font->name)) \|\|
182			(old->font->screenfont != new->font->screenfont) \|\|
183			((*flags & 0x03) == 3)) {
184			if (old->italic)
185			fputs("</I>",of);
186			if (old->bold)
187			fputs("</B>",of);
188			if (old->underline)
189			fputs("</U>",of);
190	frodo	67	if (old->strikethrough)
191	frodo	14	fputs("</STRIKE>",of);
192			if (old->super_sub == psiconv_superscript)
193			fputs("</SUP>",of);
194			if (old->super_sub == psiconv_subscript)
195			fputs("</SUB>",of);
196			if ((*flags & 1) == 1)
197			fputs("</FONT>",of);
198			if ((*flags & 2) == 0) {
199			*flags \|= 1;
200			fputs("<FONT SIZE=",of);
201			if (new->font_size <= 8.0)
202			fputs("1",of);
203			else if (new->font_size <= 10.0)
204			fputs("2",of);
205			else if (new->font_size <= 12.0)
206			fputs("3",of);
207			else if (new->font_size <= 14.0)
208			fputs("4",of);
209			else if (new->font_size <= 18.0)
210			fputs("5",of);
211			else if (new->font_size <= 24.0)
212			fputs("6",of);
213			else
214			fputs("7",of);
215			fprintf(of," COLOR=#%02x%02x%02x",new->color->red,new->color->green,
216			new->color->blue);
217	frodo	90	if (new->font->screenfont == psiconv_font_sansserif)
218	frodo	14	fprintf(of," FACE=\"%s, Sans-Serif\">",new->font->name);
219	frodo	90	else if (new->font->screenfont == psiconv_font_nonprop)
220	frodo	14	fprintf(of," FACE=\"%s, Monospace\">",new->font-> name);
221	frodo	90	else if (new->font->screenfont == psiconv_font_serif)
222	frodo	14	fprintf(of," FACE=\"%s, Serif\">",new->font-> name);
223			else
224			fprintf(of," FACE=\"%s, Serif\">",new->font-> name);
225			}
226			if (new->italic)
227			fputs("<I>",of);
228			if (new->bold)
229			fputs("<B>",of);
230			if (new->underline)
231			fputs("<U>",of);
232	frodo	67	if (new->strikethrough)
233	frodo	14	fputs("<STRIKE>",of);
234			if (new->super_sub == psiconv_superscript)
235			fputs("<SUP>",of);
236			if (new->super_sub == psiconv_subscript)
237			fputs("<SUB>",of);
238			} else {
239			if (font_set \|\| (old->italic != new->italic)) {
240			if (old->italic)
241			fputs("</I>",of);
242			else
243			fputs("<I>",of);
244			}
245			if (old->bold != new->bold) {
246			if (old->bold)
247			fputs("</B>",of);
248			else
249			fputs("<B>",of);
250			}
251			if (old->underline != new->underline) {
252			if (old->underline)
253			fputs("</U>",of);
254			else
255			fputs("<U>",of);
256			}
257	frodo	67	if (old->strikethrough != new->strikethrough) {
258			if (old->strikethrough)
259	frodo	14	fputs("</STRIKE>",of);
260			else
261			fputs("<STRIKE>",of);
262			}
263			if (old->super_sub != new->super_sub) {
264			if (old->super_sub == psiconv_superscript)
265			fputs("</SUP>",of);
266			else if (old->super_sub == psiconv_subscript)
267			fputs("</SUB>",of);
268			if (new->super_sub == psiconv_superscript)
269			fputs("<SUP>",of);
270			else if (new->super_sub == psiconv_subscript)
271			fputs("<SUB>",of);
272			}
273			}
274			}
275
276			void gen_para(FILE *of, const psiconv_paragraph para,
277			const psiconv_character_layout base_char)
278			{
279			int i,j,loc;
280			psiconv_character_layout cur_char;
281			psiconv_in_line_layout inl;
282			int flags = 0;
283
284	frodo	147	char **table;
285			if (encoding == PSICONV_ENCODING_UTF8){
286			table=(char**)utf_table;
287			}else{
288			table=(char**)char_table;
289			}
290
291	frodo	14
292	frodo	147
293	frodo	14	fputs("<P",of);
294			if (para->base_paragraph->justify_hor == psiconv_justify_left)
295			fputs(" ALIGN=left",of);
296			else if (para->base_paragraph->justify_hor == psiconv_justify_right)
297			fputs(" ALIGN=right",of);
298			else if (para->base_paragraph->justify_hor == psiconv_justify_centre)
299			fputs(" ALIGN=center",of);
300			else if (para->base_paragraph->justify_hor == psiconv_justify_full)
301			fputs(" ALIGN=left",of);
302			fputs(">",of);
303			if (para->base_paragraph->bullet->on)
304			fputs("<UL><LI>",of);
305
306			cur_char = base_char;
307
308			if (psiconv_list_length(para->in_lines) == 0) {
309			diff_char(of,cur_char,para->base_character,&flags);
310			cur_char = para->base_character;
311			}
312			loc = 0;
313
314			for (i = 0; i < psiconv_list_length(para->in_lines); i++) {
315			inl = psiconv_list_get(para->in_lines,i);
316			diff_char(of,cur_char,inl->layout,&flags);
317			cur_char = inl->layout;
318			for (j = loc; j < inl->length + loc; j ++) {
319	frodo	147	fputs(table[(unsigned char) (para->text[j])],of);
320	frodo	14	}
321			loc = j;
322			}
323
324			if (loc < strlen(para->text)) {
325			diff_char(of,cur_char,para->base_character,&flags);
326			cur_char = para->base_character;
327			for (j = loc; j < strlen(para->text); j ++) {
328	frodo	147	fputs(table[(unsigned char) (para->text[j])],of);
329	frodo	14	}
330			}
331
332			if (strlen(para->text) == 0)
333			fputs("<BR>",of);
334
335			flags \|= 2;
336			diff_char(of,cur_char,base_char,&flags);
337
338			if (para->base_paragraph->bullet->on)
339			fputs("</UL>",of);
340
341			fputs("</P>\n",of);
342			}
343
344	frodo	53	int psiconv_gen_html(const char * filename,const psiconv_file file,
345	frodo	147	const char *dest, const psiconv_encoding encoding_type)
346	frodo	14	{
347	frodo	53	FILE *of = fopen(filename,"w");
348			if (! of)
349			return -1;
350
351	frodo	147	encoding = encoding_type;
352
353	frodo	34	if (file->type == psiconv_word_file) {
354	frodo	14	psiconv_gen_html_word(of,(psiconv_word_f) file->file);
355	frodo	34	} else if (file->type == psiconv_texted_file) {
356	frodo	14	psiconv_gen_html_texted(of,(psiconv_texted_f) file->file);
357	frodo	53	} else {
358			fclose(of);
359	frodo	34	return -1;
360	frodo	53	}
361			return fclose(of);
362	frodo	14	}
363
364			void psiconv_gen_html_texted(FILE *of,psiconv_texted_f tf)
365			{
366			psiconv_character_layout base_char;
367			psiconv_paragraph para;
368			int i;
369
370			/* We have nothing better */
371			base_char = psiconv_basic_character_layout();
372
373			fputs("<!doctype html public \"-//W3C//DTD HTML 3.2 Final//EN\">", of);
374			fputs("\n<HTML>\n<HEAD>\n <META NAME=\"GENERATOR\"", of);
375			fputs(" CONTENT=\"psiconv-" VERSION "\">\n", of);
376	frodo	147
377			fputs(" <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html", of);
378			if (encoding == PSICONV_ENCODING_UTF8){
379			fputs("; CHARSET=UTF-8", of);
380			}
381			fputs("\">\n", of);
382
383			fputs("</HEAD>\n",of);
384	frodo	14	fputs("<BODY>\n",of);
385			for (i = 0; i < psiconv_list_length(tf->texted_sec->paragraphs); i++) {
386			para = psiconv_list_get(tf->texted_sec->paragraphs,i);
387			gen_para(of,para,base_char);
388			}
389			fputs("</BODY>\n</HTML>\n",of);
390			psiconv_free_character_layout(base_char);
391			}
392
393
394			void psiconv_gen_html_word(FILE *of,psiconv_word_f wf)
395			{
396			int i;
397			psiconv_paragraph para;
398			psiconv_color white,black;
399			psiconv_character_layout base_char;
400
401			white = malloc(sizeof(*white));
402			black = malloc(sizeof(*black));
403			white->red = 0x00;
404			white->green = 0x00;
405			white->blue = 0x00;
406			black->red = 0xff;
407			black->green = 0xff;
408			black->blue = 0xff;
409
410			/* To keep from generating a font desc for each line */
411			base_char = gen_base_char(wf->styles_sec->normal->character->font,
412			black,white);
413
414			psiconv_free_color(black);
415			psiconv_free_color(white);
416
417			fputs("<!doctype html public \"-//W3C//DTD HTML 3.2 Final//EN\">", of);
418			fputs("\n<HTML>\n<HEAD>\n <META NAME=\"GENERATOR\"", of);
419			fputs(" CONTENT=\"psiconv-" VERSION "\">\n", of);
420	frodo	147
421			fputs(" <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html", of);
422			if (encoding == PSICONV_ENCODING_UTF8)
423			fputs("; CHARSET=UTF-8", of);
424			fputs("\">\n", of);
425
426			fputs("</HEAD>\n",of);
427	frodo	14	fputs("<BODY>\n",of);
428
429			for (i = 0; i < psiconv_list_length(wf->paragraphs); i++) {
430			para = psiconv_list_get(wf->paragraphs,i);
431			gen_para(of,para,base_char);
432			}
433			fputs("</BODY>\n</HTML>\n",of);
434			psiconv_free_character_layout(base_char);
435			}
436
437	frodo	56	static struct psiconv_fileformat_s ff =
438	frodo	34	{
439			"HTML3",
440			"HTML 3.2, not verified so probably not completely compliant",
441			&psiconv_gen_html
442			};
443	frodo	14
444	frodo	34	void init_html(void)
445			{
446			psiconv_list_add(fileformat_list,&ff);
447			}
frodo@frodo.looijaard.name	ViewVC Help
Powered by ViewVC 1.1.26