2 * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3 * Copyright (C) 1999-2007 Hiroyuki Yamamoto and the Claws Mail team
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.
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.
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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
29 #define SC_HTMLBUFSIZE 8192
30 #define HR_STR "------------------------------------------------"
32 typedef struct _SC_HTMLSymbol SC_HTMLSymbol;
40 static SC_HTMLSymbol symbol_list[] = {
60 static SC_HTMLSymbol ascii_symbol_list[] = {
61 {"¡" , "\302\241"},
62 {"¦", "\302\246"},
63 {"©" , "\302\251"},
64 {"«" , "\302\253"},
65 {"®" , "\302\256"},
67 {"²" , "\302\262"},
68 {"³" , "\302\263"},
69 {"´" , "\302\264"},
70 {"¸" , "\302\270"},
71 {"¹" , "\302\271"},
72 {"»" , "\302\273"},
73 {"¼", "\302\274"},
74 {"½", "\302\275"},
75 {"¾", "\302\276"},
76 {"¿", "\302\277"},
78 {"À", "\303\200"},
79 {"Á", "\303\201"},
80 {"Â" , "\303\202"},
81 {"Ã", "\303\203"},
82 {"Æ" , "\303\206"},
83 {"È", "\303\210"},
84 {"É", "\303\211"},
85 {"Ê" , "\303\212"},
86 {"Ì", "\303\214"},
87 {"Í", "\303\215"},
88 {"Î" , "\303\216"},
90 {"Ñ", "\303\221"},
91 {"Ò", "\303\222"},
92 {"Ó", "\303\223"},
93 {"Ô" , "\303\224"},
94 {"Õ", "\303\225"},
95 {"Ù", "\303\231"},
96 {"Ú", "\303\232"},
97 {"Û" , "\303\233"},
98 {"Ý", "\303\235"},
100 {"à", "\303\240"},
101 {"á", "\303\241"},
102 {"â" , "\303\242"},
103 {"ã", "\303\243"},
104 {"æ" , "\303\246"},
105 {"è", "\303\250"},
106 {"é", "\303\251"},
107 {"ê" , "\303\252"},
108 {"ì", "\303\254"},
109 {"í", "\303\255"},
110 {"î" , "\303\256"},
112 {"ñ", "\303\261"},
113 {"ò", "\303\262"},
114 {"ó", "\303\263"},
115 {"ô" , "\303\264"},
116 {"õ", "\303\265"},
117 {"ù", "\303\271"},
118 {"ú", "\303\272"},
119 {"û" , "\303\273"},
120 {"ý", "\303\275"},
123 static GHashTable *default_symbol_table;
125 static SC_HTMLState sc_html_read_line (SC_HTMLParser *parser);
126 static void sc_html_append_char (SC_HTMLParser *parser,
128 static void sc_html_append_str (SC_HTMLParser *parser,
131 static SC_HTMLState sc_html_parse_tag (SC_HTMLParser *parser);
132 static void sc_html_parse_special (SC_HTMLParser *parser);
133 static void sc_html_get_parenthesis (SC_HTMLParser *parser,
138 SC_HTMLParser *sc_html_parser_new(FILE *fp, CodeConverter *conv)
140 SC_HTMLParser *parser;
142 g_return_val_if_fail(fp != NULL, NULL);
143 g_return_val_if_fail(conv != NULL, NULL);
145 parser = g_new0(SC_HTMLParser, 1);
148 parser->str = g_string_new(NULL);
149 parser->buf = g_string_new(NULL);
150 parser->bufp = parser->buf->str;
151 parser->state = SC_HTML_NORMAL;
153 parser->newline = TRUE;
154 parser->empty_line = TRUE;
155 parser->space = FALSE;
158 #define SYMBOL_TABLE_ADD(table, list) \
162 for (i = 0; i < sizeof(list) / sizeof(list[0]); i++) \
163 g_hash_table_insert(table, list[i].key, list[i].val); \
166 if (!default_symbol_table) {
167 default_symbol_table =
168 g_hash_table_new(g_str_hash, g_str_equal);
169 SYMBOL_TABLE_ADD(default_symbol_table, symbol_list);
170 SYMBOL_TABLE_ADD(default_symbol_table, ascii_symbol_list);
173 #undef SYMBOL_TABLE_ADD
175 parser->symbol_table = default_symbol_table;
180 void sc_html_parser_destroy(SC_HTMLParser *parser)
182 g_string_free(parser->str, TRUE);
183 g_string_free(parser->buf, TRUE);
184 g_free(parser->href);
188 gchar *sc_html_parse(SC_HTMLParser *parser)
190 parser->state = SC_HTML_NORMAL;
191 g_string_truncate(parser->str, 0);
193 if (*parser->bufp == '\0') {
194 g_string_truncate(parser->buf, 0);
195 parser->bufp = parser->buf->str;
196 if (sc_html_read_line(parser) == SC_HTML_EOF)
200 while (*parser->bufp != '\0') {
201 switch (*parser->bufp) {
204 st = sc_html_parse_tag(parser);
205 /* when we see an href, we need to flush the str
206 * buffer. Then collect all the chars until we
207 * see the end anchor tag
209 if (SC_HTML_HREF_BEG == st || SC_HTML_HREF == st)
210 return parser->str->str;
214 sc_html_parse_special(parser);
220 if (parser->bufp[0] == '\r' && parser->bufp[1] == '\n')
224 if (!parser->newline)
225 parser->space = TRUE;
232 sc_html_append_char(parser, *parser->bufp++);
236 return parser->str->str;
239 static SC_HTMLState sc_html_read_line(SC_HTMLParser *parser)
241 gchar buf[SC_HTMLBUFSIZE];
242 gchar buf2[SC_HTMLBUFSIZE];
245 if (fgets(buf, sizeof(buf), parser->fp) == NULL) {
246 parser->state = SC_HTML_EOF;
250 if (conv_convert(parser->conv, buf2, sizeof(buf2), buf) < 0) {
251 index = parser->bufp - parser->buf->str;
253 conv_utf8todisp(buf2, sizeof(buf2), buf);
254 g_string_append(parser->buf, buf2);
256 parser->bufp = parser->buf->str + index;
258 return SC_HTML_CONV_FAILED;
261 index = parser->bufp - parser->buf->str;
263 g_string_append(parser->buf, buf2);
265 parser->bufp = parser->buf->str + index;
267 return SC_HTML_NORMAL;
270 static void sc_html_append_char(SC_HTMLParser *parser, gchar ch)
272 GString *str = parser->str;
274 if (!parser->pre && parser->space) {
275 g_string_append_c(str, ' ');
276 parser->space = FALSE;
279 g_string_append_c(str, ch);
281 parser->empty_line = FALSE;
283 parser->newline = TRUE;
284 if (str->len > 1 && str->str[str->len - 2] == '\n')
285 parser->empty_line = TRUE;
287 parser->newline = FALSE;
290 static void sc_html_append_str(SC_HTMLParser *parser, const gchar *str, gint len)
292 GString *string = parser->str;
294 if (!parser->pre && parser->space) {
295 g_string_append_c(string, ' ');
296 parser->space = FALSE;
299 if (len == 0) return;
301 g_string_append(string, str);
304 Xstrndup_a(s, str, len, return);
305 g_string_append(string, s);
308 parser->empty_line = FALSE;
309 if (string->len > 0 && string->str[string->len - 1] == '\n') {
310 parser->newline = TRUE;
311 if (string->len > 1 && string->str[string->len - 2] == '\n')
312 parser->empty_line = TRUE;
314 parser->newline = FALSE;
317 static SC_HTMLTag *sc_html_get_tag(const gchar *str)
323 g_return_val_if_fail(str != NULL, NULL);
325 if (*str == '\0' || *str == '!') return NULL;
327 Xstrdup_a(tmp, str, return NULL);
329 tag = g_new0(SC_HTMLTag, 1);
331 for (tmpp = tmp; *tmpp != '\0' && !g_ascii_isspace(*tmpp); tmpp++)
336 tag->name = g_strdup(tmp);
341 tag->name = g_strdup(tmp);
344 while (*tmpp != '\0') {
351 while (g_ascii_isspace(*tmpp)) tmpp++;
354 while (*tmpp != '\0' && !g_ascii_isspace(*tmpp) &&
357 if (*tmpp != '\0' && *tmpp != '=') {
359 while (g_ascii_isspace(*tmpp)) tmpp++;
364 while (g_ascii_isspace(*tmpp)) tmpp++;
366 if (*tmpp == '"' || *tmpp == '\'') {
371 if ((p = strchr(attr_value, quote)) == NULL) {
372 g_warning("sc_html_get_tag(): syntax error in tag: '%s'\n", str);
377 while (g_ascii_isspace(*tmpp)) tmpp++;
381 while (*tmpp != '\0' && !g_ascii_isspace(*tmpp)) tmpp++;
388 g_strchomp(attr_name);
389 g_strdown(attr_name);
390 attr = g_new(SC_HTMLAttr, 1);
391 attr->name = g_strdup(attr_name);
392 attr->value = g_strdup(attr_value);
393 tag->attr = g_list_append(tag->attr, attr);
399 static void sc_html_free_tag(SC_HTMLTag *tag)
404 while (tag->attr != NULL) {
405 SC_HTMLAttr *attr = (SC_HTMLAttr *)tag->attr->data;
409 tag->attr = g_list_remove(tag->attr, tag->attr->data);
414 static SC_HTMLState sc_html_parse_tag(SC_HTMLParser *parser)
416 gchar buf[SC_HTMLBUFSIZE];
419 sc_html_get_parenthesis(parser, buf, sizeof(buf));
421 tag = sc_html_get_tag(buf);
423 parser->state = SC_HTML_UNKNOWN;
424 if (!tag) return SC_HTML_UNKNOWN;
426 if (!strcmp(tag->name, "br")) {
427 parser->space = FALSE;
428 sc_html_append_char(parser, '\n');
429 parser->state = SC_HTML_BR;
430 } else if (!strcmp(tag->name, "a")) {
432 for (cur = tag->attr; cur != NULL; cur = cur->next) {
433 if (cur->data && !strcmp(((SC_HTMLAttr *)cur->data)->name, "href")) {
434 g_free(parser->href);
435 parser->href = g_strdup(((SC_HTMLAttr *)cur->data)->value);
436 parser->state = SC_HTML_HREF_BEG;
440 } else if (!strcmp(tag->name, "/a")) {
441 parser->state = SC_HTML_HREF;
442 } else if (!strcmp(tag->name, "p")) {
443 parser->space = FALSE;
444 if (!parser->empty_line) {
445 parser->space = FALSE;
446 if (!parser->newline) sc_html_append_char(parser, '\n');
447 sc_html_append_char(parser, '\n');
449 parser->state = SC_HTML_PAR;
450 } else if (!strcmp(tag->name, "pre")) {
452 parser->state = SC_HTML_PRE;
453 } else if (!strcmp(tag->name, "/pre")) {
455 parser->state = SC_HTML_NORMAL;
456 } else if (!strcmp(tag->name, "hr")) {
457 if (!parser->newline) {
458 parser->space = FALSE;
459 sc_html_append_char(parser, '\n');
461 sc_html_append_str(parser, HR_STR "\n", -1);
462 parser->state = SC_HTML_HR;
463 } else if (!strcmp(tag->name, "div") ||
464 !strcmp(tag->name, "ul") ||
465 !strcmp(tag->name, "li") ||
466 !strcmp(tag->name, "table") ||
467 !strcmp(tag->name, "tr") ||
468 (tag->name[0] == 'h' && g_ascii_isdigit(tag->name[1]))) {
469 if (!parser->newline) {
470 parser->space = FALSE;
471 sc_html_append_char(parser, '\n');
473 parser->state = SC_HTML_NORMAL;
474 } else if (!strcmp(tag->name, "/table") ||
475 (tag->name[0] == '/' &&
476 tag->name[1] == 'h' &&
477 g_ascii_isdigit(tag->name[1]))) {
478 if (!parser->empty_line) {
479 parser->space = FALSE;
480 if (!parser->newline) sc_html_append_char(parser, '\n');
481 sc_html_append_char(parser, '\n');
483 parser->state = SC_HTML_NORMAL;
484 } else if (!strcmp(tag->name, "/div") ||
485 !strcmp(tag->name, "/ul") ||
486 !strcmp(tag->name, "/li")) {
487 if (!parser->newline) {
488 parser->space = FALSE;
489 sc_html_append_char(parser, '\n');
491 parser->state = SC_HTML_NORMAL;
494 sc_html_free_tag(tag);
496 return parser->state;
499 static void sc_html_parse_special(SC_HTMLParser *parser)
501 gchar symbol_name[9];
505 parser->state = SC_HTML_UNKNOWN;
506 g_return_if_fail(*parser->bufp == '&');
509 for (n = 0; parser->bufp[n] != '\0' && parser->bufp[n] != ';'; n++)
511 if (n > 7 || parser->bufp[n] != ';') {
512 /* output literal `&' */
513 sc_html_append_char(parser, *parser->bufp++);
514 parser->state = SC_HTML_NORMAL;
517 strncpy2(symbol_name, parser->bufp, n + 2);
518 parser->bufp += n + 1;
520 if ((val = g_hash_table_lookup(parser->symbol_table, symbol_name))
522 sc_html_append_str(parser, val, -1);
523 parser->state = SC_HTML_NORMAL;
525 } else if (symbol_name[1] == '#' && g_ascii_isdigit(symbol_name[2])) {
528 ch = atoi(symbol_name + 2);
529 if ((ch > 0 && ch <= 127) ||
530 (ch >= 128 && ch <= 255 &&
531 parser->conv->charset == C_ISO_8859_1)) {
532 sc_html_append_char(parser, ch);
533 parser->state = SC_HTML_NORMAL;
538 /* http://www.w3schools.com/html/html_entitiesref.asp */
539 case 96: /* backtick */
542 case 153: /* trademark */
545 case 162: /* cent (currency) ¢ */
548 case 163: /* pound (currency) £ */
551 case 338: /* capital ligature OE Œ */
554 case 339: /* small ligature OE œ */
557 case 352: /* capital S w/caron Š */
558 case 353: /* small S w/caron š */
559 case 376: /* cap Y w/ diaeres Ÿ */
561 case 710: /* circumflex accent ˆ */
564 case 732: /* small tilde ˜ */
567 case 8194: /* en space   */
568 case 8195: /* em space   */
569 case 8201: /* thin space   */
572 case 8204: /* zero width non-joiner ‌ */
573 case 8205: /* zero width joiner ‍ */
574 case 8206: /* l-t-r mark ‎ */
575 case 8207: /* r-t-l mark &rlm */
577 case 8211: /* en dash – */
580 case 8212: /* em dash — */
583 case 8216: /* l single quot mark ‘ */
584 case 8217: /* r single quot mark ’ */
587 case 8218: /* single low-9 quot ‚ */
590 case 8220: /* l double quot mark “ */
591 case 8221: /* r double quot mark ” */
594 case 8222: /* double low-9 quot „ */
597 case 8224: /* dagger † */
598 case 8225: /* double dagger ‡ */
600 case 8226: /* bullet • */
603 case 8230: /* horizontal ellipsis … */
606 case 8240: /* per mile ‰ */
609 case 8249: /* l-pointing angle quot ‹ */
612 case 8250: /* r-pointing angle quot › */
615 case 8364: /* euro € */
618 case 8482: /* trademark ™ */
625 sc_html_append_str(parser, symb, -1);
626 parser->state = SC_HTML_NORMAL;
632 sc_html_append_str(parser, symbol_name, -1);
635 static void sc_html_get_parenthesis(SC_HTMLParser *parser, gchar *buf, gint len)
640 g_return_if_fail(*parser->bufp == '<');
642 /* ignore comment / CSS / script stuff */
643 if (!strncmp(parser->bufp, "<!--", 4)) {
645 while ((p = strstr(parser->bufp, "-->")) == NULL)
646 if (sc_html_read_line(parser) == SC_HTML_EOF) return;
647 parser->bufp = p + 3;
650 if (!g_ascii_strncasecmp(parser->bufp, "<style", 6)) {
652 while ((p = strcasestr(parser->bufp, "</style>")) == NULL)
653 if (sc_html_read_line(parser) == SC_HTML_EOF) return;
654 parser->bufp = p + 8;
657 if (!g_ascii_strncasecmp(parser->bufp, "<script", 7)) {
659 while ((p = strcasestr(parser->bufp, "</script>")) == NULL)
660 if (sc_html_read_line(parser) == SC_HTML_EOF) return;
661 parser->bufp = p + 9;
666 while ((p = strchr(parser->bufp, '>')) == NULL)
667 if (sc_html_read_line(parser) == SC_HTML_EOF) return;
669 strncpy2(buf, parser->bufp, MIN(p - parser->bufp + 1, len));
671 parser->bufp = p + 1;