src/document/dom/renderer.c

   1 /* DOM document renderer */
   2
   3 #ifdef HAVE_CONFIG_H
   4 #include "config.h"
   5 #endif
   6
   7 #include <sys/types.h> /* FreeBSD needs this before regex.h */
   8 #ifdef HAVE_REGEX_H
   9 #include <regex.h>
  10 #endif
  11 #include <string.h>
  12
  13 #include "elinks.h"
  14
  15 #include "bookmarks/bookmarks.h"        /* get_bookmark() */
  16 #include "cache/cache.h"
  17 #include "document/css/css.h"
  18 #include "document/css/parser.h"
  19 #include "document/css/property.h"
  20 #include "document/css/stylesheet.h"
  21 #include "document/docdata.h"
  22 #include "document/document.h"
  23 #include "document/dom/renderer.h"
  24 #include "document/renderer.h"
  25 #include "dom/configuration.h"
  26 #include "dom/scanner.h"
  27 #include "dom/sgml/parser.h"
  28 #include "dom/sgml/html/html.h"
  29 #include "dom/sgml/rss/rss.h"
  30 #include "dom/node.h"
  31 #include "dom/stack.h"
  32 #include "intl/charsets.h"
  33 #include "globhist/globhist.h"          /* get_global_history_item() */
  34 #include "protocol/uri.h"
  35 #include "terminal/draw.h"
  36 #include "util/box.h"
  37 #include "util/error.h"
  38 #include "util/memory.h"
  39 #include "util/snprintf.h"
  40 #include "util/string.h"
  41
  42
  43 struct dom_renderer {
  44         enum sgml_document_type doctype;
  45         struct document *document;
  46
  47         struct conv_table *convert_table;
  48         enum convert_string_mode convert_mode;
  49
  50         struct uri *base_uri;
  51
  52         unsigned char *source;
  53         unsigned char *end;
  54
  55         unsigned char *position;
  56         int canvas_x, canvas_y;
  57
  58 #ifdef HAVE_REGEX_H
  59         regex_t url_regex;
  60         unsigned int find_url:1;
  61 #endif
  62         struct screen_char styles[DOM_NODES];
  63
  64         /* RSS renderer variables */
  65         struct dom_node *channel;
  66         struct dom_node_list *items;
  67         struct dom_node *item;
  68         struct dom_node *node;
  69         struct dom_string text;
  70 };
  71
  72 #define URL_REGEX "(file://|((f|ht|nt)tp(s)?|smb)://[[:alnum:]]+([-@:.]?[[:alnum:]])*\\.[[:alpha:]]{2,4}(:[[:digit:]]+)?)(/(%[[:xdigit:]]{2}|[-_~&=;?.a-z0-9])*)*"
  73 #define URL_REGFLAGS (REG_ICASE | REG_EXTENDED)
  74
  75 static void
  76 init_template(struct screen_char *template, struct document_options *options,
  77               color_T background, color_T foreground, enum screen_char_attr attr)
  78 {
  79         struct color_pair colors = INIT_COLOR_PAIR(background, foreground);
  80
  81         template->attr = attr;
  82         template->data = ' ';
  83         set_term_color(template, &colors,
  84                        options->color_flags, options->color_mode);
  85 }
  86
  87
  88 /* Checks the user CSS for properties for each DOM node type name */
  89 static inline void
  90 init_dom_renderer(struct dom_renderer *renderer, struct document *document,
  91                   struct string *buffer, struct conv_table *convert_table)
  92 {
  93         enum dom_node_type type;
  94         struct css_stylesheet *css = &default_stylesheet;
  95
  96         memset(renderer, 0, sizeof(*renderer));
  97
  98         renderer->document      = document;
  99         renderer->convert_table = convert_table;
 100         renderer->convert_mode  = document->options.plain ? CSM_NONE : CSM_DEFAULT;
 101         renderer->source        = buffer->source;
 102         renderer->end           = buffer->source + buffer->length;
 103         renderer->position      = renderer->source;
 104         renderer->base_uri      = get_uri_reference(document->uri);
 105
 106 #ifdef HAVE_REGEX_H
 107         if (renderer->document->options.plain_display_links) {
 108                 if (regcomp(&renderer->url_regex, URL_REGEX, URL_REGFLAGS)) {
 109                         regfree(&renderer->url_regex);
 110                 } else {
 111                         renderer->find_url = 1;
 112                 }
 113         }
 114 #endif
 115
 116         for (type = 0; type < DOM_NODES; type++) {
 117                 struct screen_char *template = &renderer->styles[type];
 118                 color_T background = document->options.default_style.bg;
 119                 color_T foreground = document->options.default_style.fg;
 120                 enum screen_char_attr attr = 0;
 121                 static int i_want_struct_module_for_dom;
 122
 123                 struct dom_string *name = get_dom_node_type_name(type);
 124                 struct css_selector *selector = NULL;
 125
 126                 if (!i_want_struct_module_for_dom) {
 127                         static const unsigned char default_colors[] =
 128                                 "document       { color: yellow } "
 129                                 "element        { color: lightgreen } "
 130                                 "entity-reference { color: red } "
 131                                 "proc-instruction { color: red } "
 132                                 "attribute      { color: magenta } "
 133                                 "comment        { color: aqua } "
 134                                 "cdata-section  { color: orange2 } ";
 135                         unsigned char *styles = (unsigned char *) default_colors;
 136
 137                         i_want_struct_module_for_dom = 1;
 138                         /* When someone will get here earlier than at 4am,
 139                          * this will be done in some init function, perhaps
 140                          * not overriding the user's default stylesheet. */
 141                         css_parse_stylesheet(css, NULL, styles, styles + sizeof(default_colors));
 142                 }
 143
 144                 if (name)
 145                 if (is_dom_string_set(name))
 146                         selector = find_css_selector(&css->selectors,
 147                                                      CST_ELEMENT, CSR_ROOT,
 148                                                      name->string, name->length);
 149
 150                 if (selector) {
 151                         struct css_property *property;
 152
 153                         foreach (property, selector->properties) {
 154                                 switch (property->type) {
 155                                 case CSS_PT_BACKGROUND_COLOR:
 156                                 case CSS_PT_BACKGROUND:
 157                                         if (property->value_type == CSS_VT_COLOR)
 158                                                 background = property->value.color;
 159                                         break;
 160                                 case CSS_PT_COLOR:
 161                                         foreground = property->value.color;
 162                                         break;
 163                                 case CSS_PT_FONT_WEIGHT:
 164                                         if (property->value.font_attribute.add & AT_BOLD)
 165                                                 attr |= SCREEN_ATTR_BOLD;
 166                                         break;
 167                                 case CSS_PT_FONT_STYLE:
 168                                         if (property->value.font_attribute.add & AT_UNDERLINE)
 169                                                 attr |= SCREEN_ATTR_UNDERLINE;
 170
 171                                         if (property->value.font_attribute.add & AT_ITALIC)
 172                                                 attr |= SCREEN_ATTR_ITALIC;
 173                                         break;
 174                                 case CSS_PT_TEXT_DECORATION:
 175                                         if (property->value.font_attribute.add & AT_UNDERLINE)
 176                                                 attr |= SCREEN_ATTR_UNDERLINE;
 177                                         break;
 178                                 case CSS_PT_DISPLAY:
 179                                 case CSS_PT_NONE:
 180                                 case CSS_PT_TEXT_ALIGN:
 181                                 case CSS_PT_WHITE_SPACE:
 182                                 case CSS_PT_LAST:
 183                                         break;
 184                                 }
 185                         }
 186                 }
 187
 188                 init_template(template, &document->options, background, foreground, attr);
 189         }
 190 }
 191
 192 static inline void
 193 done_dom_renderer(struct dom_renderer *renderer)
 194 {
 195 #ifdef HAVE_REGEX_H
 196         if (renderer->find_url)
 197                 regfree(&renderer->url_regex);
 198 #endif
 199         done_uri(renderer->base_uri);
 200 }
 201
 202
 203 /* Document maintainance */
 204
 205 static struct screen_char *
 206 realloc_line(struct document *document, int x, int y)
 207 {
 208         struct line *line = realloc_lines(document, y);
 209
 210         if (!line) return NULL;
 211
 212         if (x > line->length) {
 213                 if (!ALIGN_LINE(&line->chars, line->length, x))
 214                         return NULL;
 215
 216                 for (; line->length < x; line->length++) {
 217                         line->chars[line->length].data = ' ';
 218                 }
 219
 220                 if (x > document->width) document->width = x;
 221         }
 222
 223         return line->chars;
 224 }
 225
 226 static struct node *
 227 add_search_node(struct dom_renderer *renderer, int width)
 228 {
 229         struct node *node = mem_alloc(sizeof(*node));
 230
 231         if (node) {
 232                 set_box(&node->box, renderer->canvas_x, renderer->canvas_y,
 233                         width, 1);
 234                 add_to_list(renderer->document->nodes, node);
 235         }
 236
 237         return node;
 238 }
 239
 240 #define X(renderer)             ((renderer)->canvas_x)
 241 #define Y(renderer)             ((renderer)->canvas_y)
 242 #define POS(renderer)           (&(renderer)->document->data[Y(renderer)].chars[X(renderer)])
 243 #define WIDTH(renderer, add)    ((renderer)->canvas_x + (add))
 244
 245 static void
 246 render_dom_line(struct dom_renderer *renderer, struct screen_char *template,
 247                 unsigned char *string, int length)
 248 {
 249         struct document *document = renderer->document;
 250         struct conv_table *convert = renderer->convert_table;
 251         enum convert_string_mode mode = renderer->convert_mode;
 252         int x, charlen;
 253 #ifdef CONFIG_UTF8
 254         int utf8 = document->options.utf8;
 255         unsigned char *end;
 256 #endif /* CONFIG_UTF8 */
 257
 258
 259         assert(renderer && template && string && length);
 260
 261         string = convert_string(convert, string, length, document->options.cp,
 262                                 mode, &length, NULL, NULL);
 263         if (!string) return;
 264
 265         if (!realloc_line(document, WIDTH(renderer, length), Y(renderer))) {
 266                 mem_free(string);
 267                 return;
 268         }
 269
 270         add_search_node(renderer, length);
 271
 272 #ifdef CONFIG_UTF8
 273         end = string + length;
 274 #endif /* CONFIG_UTF8 */
 275         for (x = 0, charlen = 1; x < length;x += charlen, renderer->canvas_x++) {
 276                 unsigned char *text = &string[x];
 277
 278                 /* This is mostly to be able to break out so the indentation
 279                  * level won't get to high. */
 280                 switch (*text) {
 281                 case ASCII_TAB:
 282                 {
 283                         int tab_width = 7 - (X(renderer) & 7);
 284                         int width = WIDTH(renderer, length - x + tab_width);
 285
 286                         template->data = ' ';
 287
 288                         if (!realloc_line(document, width, Y(renderer)))
 289                                 break;
 290
 291                         /* Only loop over the expanded tab chars and let the
 292                          * ``main loop'' add the actual tab char. */
 293                         for (; tab_width-- > 0; renderer->canvas_x++)
 294                                 copy_screen_chars(POS(renderer), template, 1);
 295                         charlen = 1;
 296                         break;
 297                 }
 298                 default:
 299 #ifdef CONFIG_UTF8
 300                         if (utf8) {
 301                                 unicode_val_T data;
 302                                 charlen = utf8charlen(text);
 303                                 data = utf8_to_unicode(&text, end);
 304
 305                                 template->data = (unicode_val_T)data;
 306
 307                                 if (unicode_to_cell(data) == 2) {
 308                                         copy_screen_chars(POS(renderer),
 309                                                         template, 1);
 310
 311                                         X(renderer)++;
 312                                         template->data = UCS_NO_CHAR;
 313                                 }
 314
 315                         } else
 316 #endif /* CONFIG_UTF8 */
 317                                 template->data = isscreensafe(*text) ? *text:'.';
 318                 }
 319
 320                 copy_screen_chars(POS(renderer), template, 1);
 321         }
 322         mem_free(string);
 323 }
 324
 325 static inline unsigned char *
 326 split_dom_line(unsigned char *line, int length, int *linelen)
 327 {
 328         unsigned char *end = line + length;
 329         unsigned char *pos;
 330
 331         /* End of line detection.
 332          * We handle \r, \r\n and \n types here. */
 333         for (pos = line; pos < end; pos++) {
 334                 int step = 0;
 335
 336                 if (pos[step] == ASCII_CR)
 337                         step++;
 338
 339                 if (pos[step] == ASCII_LF)
 340                         step++;
 341
 342                 if (step) {
 343                         *linelen = pos - line;
 344                         return pos + step;
 345                 }
 346         }
 347
 348         *linelen = length;
 349         return NULL;
 350 }
 351
 352 static void
 353 render_dom_text(struct dom_renderer *renderer, struct screen_char *template,
 354                 unsigned char *string, int length)
 355 {
 356         int linelen;
 357
 358         for (; length > 0; string += linelen, length -= linelen) {
 359                 unsigned char *newline = split_dom_line(string, length, &linelen);
 360
 361                 if (linelen)
 362                         render_dom_line(renderer, template, string, linelen);
 363
 364                 if (newline) {
 365                         renderer->canvas_y++;
 366                         renderer->canvas_x = 0;
 367                         linelen = newline - string;
 368                 }
 369         }
 370 }
 371
 372 #define realloc_document_links(doc, size) \
 373         ALIGN_LINK(&(doc)->links, (doc)->nlinks, size)
 374
 375 static inline struct link *
 376 add_dom_link(struct dom_renderer *renderer, unsigned char *string, int length,
 377              unsigned char *uristring, int urilength)
 378 {
 379         struct document *document = renderer->document;
 380         int x = renderer->canvas_x;
 381         int y = renderer->canvas_y;
 382         unsigned char *where;
 383         struct link *link;
 384         struct point *point;
 385         struct screen_char template;
 386         color_T fgcolor;
 387
 388         if (!realloc_document_links(document, document->nlinks + 1))
 389                 return NULL;
 390
 391         link = &document->links[document->nlinks];
 392
 393         if (!realloc_points(link, length))
 394                 return NULL;
 395
 396         uristring = convert_string(renderer->convert_table,
 397                                    uristring, urilength, document->options.cp,
 398                                    CSM_DEFAULT, NULL, NULL, NULL);
 399         if (!uristring) return NULL;
 400
 401         where = join_urls(renderer->base_uri, uristring);
 402
 403         mem_free(uristring);
 404
 405         if (!where)
 406                 return NULL;
 407 #ifdef CONFIG_GLOBHIST
 408         else if (get_global_history_item(where))
 409                 fgcolor = document->options.default_vlink;
 410 #endif
 411 #ifdef CONFIG_BOOKMARKS
 412         else if (get_bookmark(where))
 413                 fgcolor = document->options.default_bookmark_link;
 414 #endif
 415         else
 416                 fgcolor = document->options.default_link;
 417
 418         link->npoints = length;
 419         link->type = LINK_HYPERTEXT;
 420         link->where = where;
 421         link->color.background = document->options.default_style.bg;
 422         link->color.foreground = fgcolor;
 423         link->number = document->nlinks;
 424
 425         init_template(&template, &document->options,
 426                       link->color.background, link->color.foreground, 0);
 427
 428         render_dom_text(renderer, &template, string, length);
 429
 430         for (point = link->points; length > 0; length--, point++, x++) {
 431                 point->x = x;
 432                 point->y = y;
 433         }
 434
 435         document->nlinks++;
 436         document->links_sorted = 0;
 437
 438         return link;
 439 }
 440
 441
 442 /* DOM Source Renderer */
 443
 444 #define check_dom_node_source(renderer, str, len)       \
 445         ((renderer)->source <= (str) && (str) + (len) <= (renderer)->end)
 446
 447 #define assert_source(renderer, str, len) \
 448         assertm(check_dom_node_source(renderer, str, len), "renderer[%p : %p] str[%p : %p]", \
 449                 (renderer)->source, (renderer)->end, (str), (str) + (len))
 450
 451 static inline void
 452 render_dom_flush(struct dom_renderer *renderer, unsigned char *string)
 453 {
 454         struct screen_char *template = &renderer->styles[DOM_NODE_TEXT];
 455         int length = string - renderer->position;
 456
 457         assert_source(renderer, renderer->position, 0);
 458         assert_source(renderer, string, 0);
 459
 460         if (length <= 0) return;
 461         render_dom_text(renderer, template, renderer->position, length);
 462         renderer->position = string;
 463
 464         assert_source(renderer, renderer->position, 0);
 465 }
 466
 467 static inline void
 468 render_dom_node_text(struct dom_renderer *renderer, struct screen_char *template,
 469                      struct dom_node *node)
 470 {
 471         unsigned char *string = node->string.string;
 472         int length = node->string.length;
 473
 474         if (node->type == DOM_NODE_ENTITY_REFERENCE) {
 475                 string -= 1;
 476                 length += 2;
 477         }
 478
 479         if (check_dom_node_source(renderer, string, length)) {
 480                 render_dom_flush(renderer, string);
 481                 renderer->position = string + length;
 482                 assert_source(renderer, renderer->position, 0);
 483         }
 484
 485         render_dom_text(renderer, template, string, length);
 486 }
 487
 488 #ifdef HAVE_REGEX_H
 489 static inline void
 490 render_dom_node_enhanced_text(struct dom_renderer *renderer, struct dom_node *node)
 491 {
 492         regex_t *regex = &renderer->url_regex;
 493         regmatch_t regmatch;
 494         unsigned char *string = node->string.string;
 495         int length = node->string.length;
 496         struct screen_char *template = &renderer->styles[node->type];
 497         unsigned char *alloc_string;
 498
 499         if (check_dom_node_source(renderer, string, length)) {
 500                 render_dom_flush(renderer, string);
 501                 renderer->position = string + length;
 502                 assert_source(renderer, renderer->position, 0);
 503         }
 504
 505         alloc_string = memacpy(string, length);
 506         if (alloc_string)
 507                 string = alloc_string;
 508
 509         while (length > 0 && !regexec(regex, string, 1, &regmatch, 0)) {
 510                 int matchlen = regmatch.rm_eo - regmatch.rm_so;
 511                 int offset = regmatch.rm_so;
 512
 513                 if (!matchlen || offset < 0 || regmatch.rm_eo > length)
 514                         break;
 515
 516                 if (offset > 0)
 517                         render_dom_text(renderer, template, string, offset);
 518
 519                 string += offset;
 520                 length -= offset;
 521
 522                 add_dom_link(renderer, string, matchlen, string, matchlen);
 523
 524                 length -= matchlen;
 525                 string += matchlen;
 526         }
 527
 528         if (length > 0)
 529                 render_dom_text(renderer, template, string, length);
 530
 531         mem_free_if(alloc_string);
 532 }
 533 #endif
 534
 535 static enum dom_code
 536 render_dom_node_source(struct dom_stack *stack, struct dom_node *node, void *data)
 537 {
 538         struct dom_renderer *renderer = stack->current->data;
 539
 540         assert(node && renderer && renderer->document);
 541
 542 #ifdef HAVE_REGEX_H
 543         if (renderer->find_url
 544             && (node->type == DOM_NODE_TEXT
 545                 || node->type == DOM_NODE_CDATA_SECTION
 546                 || node->type == DOM_NODE_COMMENT)) {
 547                 render_dom_node_enhanced_text(renderer, node);
 548         } else
 549 #endif
 550                 render_dom_node_text(renderer, &renderer->styles[node->type], node);
 551
 552         return DOM_CODE_OK;
 553 }
 554
 555 /* This callback is also used for rendering processing instruction nodes.  */
 556 static enum dom_code
 557 render_dom_element_source(struct dom_stack *stack, struct dom_node *node, void *data)
 558 {
 559         struct dom_renderer *renderer = stack->current->data;
 560
 561         assert(node && renderer && renderer->document);
 562
 563         render_dom_node_text(renderer, &renderer->styles[node->type], node);
 564
 565         return DOM_CODE_OK;
 566 }
 567
 568 enum dom_code
 569 render_dom_element_end_source(struct dom_stack *stack, struct dom_node *node, void *data)
 570 {
 571         struct dom_renderer *renderer = stack->current->data;
 572         struct dom_stack_state *state = get_dom_stack_top(stack);
 573         struct sgml_parser_state *pstate = get_dom_stack_state_data(stack->contexts[0], state);
 574         struct dom_scanner_token *token = &pstate->end_token;
 575         unsigned char *string = token->string.string;
 576         int length = token->string.length;
 577
 578         assert(node && renderer && renderer->document);
 579
 580         if (!string || !length)
 581                 return DOM_CODE_OK;
 582
 583         if (check_dom_node_source(renderer, string, length)) {
 584                 render_dom_flush(renderer, string);
 585                 renderer->position = string + length;
 586                 assert_source(renderer, renderer->position, 0);
 587         }
 588
 589         render_dom_text(renderer, &renderer->styles[node->type], string, length);
 590
 591         return DOM_CODE_OK;
 592 }
 593
 594 static void
 595 set_base_uri(struct dom_renderer *renderer, unsigned char *value, size_t valuelen)
 596 {
 597         unsigned char *href = memacpy(value, valuelen);
 598         unsigned char *uristring;
 599         struct uri *uri;
 600
 601         if (!href) return;
 602         uristring = join_urls(renderer->base_uri, href);
 603         mem_free(href);
 604
 605         if (!uristring) return;
 606         uri = get_uri(uristring, 0);
 607         mem_free(uristring);
 608
 609         if (!uri) return;
 610
 611         done_uri(renderer->base_uri);
 612         renderer->base_uri = uri;
 613 }
 614
 615 enum dom_code
 616 render_dom_attribute_source(struct dom_stack *stack, struct dom_node *node, void *data)
 617 {
 618         struct dom_renderer *renderer = stack->current->data;
 619         struct screen_char *template = &renderer->styles[node->type];
 620
 621         assert(node && renderer->document);
 622
 623         render_dom_node_text(renderer, template, node);
 624
 625         if (is_dom_string_set(&node->data.attribute.value)) {
 626                 int quoted = node->data.attribute.quoted == 1;
 627                 unsigned char *value = node->data.attribute.value.string - quoted;
 628                 int valuelen = node->data.attribute.value.length + quoted * 2;
 629
 630                 if (check_dom_node_source(renderer, value, 0)) {
 631                         render_dom_flush(renderer, value);
 632                         renderer->position = value + valuelen;
 633                         assert_source(renderer, renderer->position, 0);
 634                 }
 635
 636                 if (node->data.attribute.reference
 637                     && valuelen - quoted * 2 > 0) {
 638                         int skips;
 639
 640                         /* Need to flush the first quoting delimiter and any
 641                          * leading whitespace so that the renderers x position
 642                          * is at the start of the value string. */
 643                         for (skips = 0; skips < valuelen; skips++) {
 644                                 if ((quoted && skips == 0)
 645                                     || isspace(value[skips])
 646                                     || value[skips] < ' ')
 647                                         continue;
 648
 649                                 break;
 650                         }
 651
 652                         if (skips > 0) {
 653                                 render_dom_text(renderer, template, value, skips);
 654                                 value    += skips;
 655                                 valuelen -= skips;
 656                         }
 657
 658                         /* Figure out what should be skipped after the actual
 659                          * link text. */
 660                         for (skips = 0; skips < valuelen; skips++) {
 661                                 if ((quoted && skips == 0)
 662                                     || isspace(value[valuelen - skips - 1])
 663                                     || value[valuelen - skips - 1] < ' ')
 664                                         continue;
 665
 666                                 break;
 667                         }
 668
 669                         if (renderer->doctype == SGML_DOCTYPE_HTML
 670                             && node->data.attribute.type == HTML_ATTRIBUTE_HREF
 671                             && node->parent->data.element.type == HTML_ELEMENT_BASE) {
 672                                 set_base_uri(renderer, value, valuelen - skips);
 673                         }
 674
 675                         add_dom_link(renderer, value, valuelen - skips,
 676                                      value, valuelen - skips);
 677
 678                         if (skips > 0) {
 679                                 value += valuelen - skips;
 680                                 render_dom_text(renderer, template, value, skips);
 681                         }
 682                 } else {
 683                         render_dom_text(renderer, template, value, valuelen);
 684                 }
 685         }
 686
 687         return DOM_CODE_OK;
 688 }
 689
 690 enum dom_code
 691 render_dom_cdata_source(struct dom_stack *stack, struct dom_node *node, void *data)
 692 {
 693         struct dom_renderer *renderer = stack->current->data;
 694         unsigned char *string = node->string.string;
 695
 696         assert(node && renderer && renderer->document);
 697
 698         /* Highlight the 'CDATA' part of <![CDATA[ if it is there. */
 699         if (check_dom_node_source(renderer, string - 6, 6)) {
 700                 render_dom_flush(renderer, string - 6);
 701                 render_dom_text(renderer, &renderer->styles[DOM_NODE_ATTRIBUTE], string - 6, 5);
 702                 renderer->position = string - 1;
 703                 assert_source(renderer, renderer->position, 0);
 704         }
 705
 706         render_dom_node_text(renderer, &renderer->styles[node->type], node);
 707
 708         return DOM_CODE_OK;
 709 }
 710
 711 enum dom_code
 712 render_dom_document_end(struct dom_stack *stack, struct dom_node *node, void *data)
 713 {
 714         struct dom_renderer *renderer = stack->current->data;
 715
 716         /* If there are no non-element nodes after the last element node make
 717          * sure that we flush to the end of the cache entry source including
 718          * the '>' of the last element tag if it has one. (bug 519) */
 719         if (check_dom_node_source(renderer, renderer->position, 0)) {
 720                 render_dom_flush(renderer, renderer->end);
 721         }
 722
 723         /* It is not necessary to return DOM_CODE_FREE_NODE here.
 724          * Because the parser was created with the SGML_PARSER_STREAM
 725          * type, the stack has the DOM_STACK_FLAG_FREE_NODES flag and
 726          * implicitly frees all nodes popped from it.  */
 727         return DOM_CODE_OK;
 728 }
 729
 730 static struct dom_stack_context_info dom_source_renderer_context_info = {
 731         /* Object size: */                      0,
 732         /* Push: */
 733         {
 734                 /*                              */ NULL,
 735                 /* DOM_NODE_ELEMENT             */ render_dom_element_source,
 736                 /* DOM_NODE_ATTRIBUTE           */ render_dom_attribute_source,
 737                 /* DOM_NODE_TEXT                */ render_dom_node_source,
 738                 /* DOM_NODE_CDATA_SECTION       */ render_dom_cdata_source,
 739                 /* DOM_NODE_ENTITY_REFERENCE    */ render_dom_node_source,
 740                 /* DOM_NODE_ENTITY              */ render_dom_node_source,
 741                 /* DOM_NODE_PROC_INSTRUCTION    */ render_dom_element_source,
 742                 /* DOM_NODE_COMMENT             */ render_dom_node_source,
 743                 /* DOM_NODE_DOCUMENT            */ NULL,
 744                 /* DOM_NODE_DOCUMENT_TYPE       */ render_dom_node_source,
 745                 /* DOM_NODE_DOCUMENT_FRAGMENT   */ render_dom_node_source,
 746                 /* DOM_NODE_NOTATION            */ render_dom_node_source,
 747         },
 748         /* Pop: */
 749         {
 750                 /*                              */ NULL,
 751                 /* DOM_NODE_ELEMENT             */ render_dom_element_end_source,
 752                 /* DOM_NODE_ATTRIBUTE           */ NULL,
 753                 /* DOM_NODE_TEXT                */ NULL,
 754                 /* DOM_NODE_CDATA_SECTION       */ NULL,
 755                 /* DOM_NODE_ENTITY_REFERENCE    */ NULL,
 756                 /* DOM_NODE_ENTITY              */ NULL,
 757                 /* DOM_NODE_PROC_INSTRUCTION    */ NULL,
 758                 /* DOM_NODE_COMMENT             */ NULL,
 759                 /* DOM_NODE_DOCUMENT            */ render_dom_document_end,
 760                 /* DOM_NODE_DOCUMENT_TYPE       */ NULL,
 761                 /* DOM_NODE_DOCUMENT_FRAGMENT   */ NULL,
 762                 /* DOM_NODE_NOTATION            */ NULL,
 763         }
 764 };
 765
 766
 767 /* DOM RSS Renderer */
 768
 769 #define RSS_CONFIG_FLAGS \
 770         (DOM_CONFIG_NORMALIZE_WHITESPACE | DOM_CONFIG_NORMALIZE_CHARACTERS)
 771
 772 enum dom_code
 773 dom_rss_push_element(struct dom_stack *stack, struct dom_node *node, void *data)
 774 {
 775         struct dom_renderer *renderer = stack->current->data;
 776
 777         assert(node && renderer && renderer->document);
 778
 779         switch (node->data.element.type) {
 780         case RSS_ELEMENT_CHANNEL:
 781                 /* The stack should have: #document * channel */
 782                 if (stack->depth != 3)
 783                         break;
 784
 785                 if (!renderer->channel) {
 786                         renderer->channel = node;
 787                 }
 788                 break;
 789
 790         case RSS_ELEMENT_ITEM:
 791                 /* The stack should have: #document * channel item */
 792 #if 0
 793                 /* Don't be so strict ... */
 794                 if (stack->depth != 4)
 795                         break;
 796 #endif
 797                 /* ... but be exclusive. */
 798                 if (renderer->item)
 799                         break;
 800                 add_to_dom_node_list(&renderer->items, node, -1);
 801                 renderer->item = node;
 802                 break;
 803
 804         case RSS_ELEMENT_LINK:
 805         case RSS_ELEMENT_DESCRIPTION:
 806         case RSS_ELEMENT_TITLE:
 807         case RSS_ELEMENT_AUTHOR:
 808         case RSS_ELEMENT_PUBDATE:
 809                 if (!node->parent || renderer->node != node->parent)
 810                         break;
 811
 812                 renderer->node = node;
 813         }
 814
 815         return DOM_CODE_OK;
 816 }
 817
 818 enum dom_code
 819 dom_rss_pop_element(struct dom_stack *stack, struct dom_node *node, void *data)
 820 {
 821         struct dom_renderer *renderer = stack->current->data;
 822         struct dom_node_list **list;
 823
 824         assert(node && renderer && renderer->document);
 825
 826         switch (node->data.element.type) {
 827         case RSS_ELEMENT_ITEM:
 828                 if (is_dom_string_set(&renderer->text))
 829                         done_dom_string(&renderer->text);
 830                 renderer->item = NULL;
 831                 break;
 832
 833         case RSS_ELEMENT_LINK:
 834         case RSS_ELEMENT_DESCRIPTION:
 835         case RSS_ELEMENT_TITLE:
 836         case RSS_ELEMENT_AUTHOR:
 837         case RSS_ELEMENT_PUBDATE:
 838                 if (!is_dom_string_set(&renderer->text)
 839                     || !node->parent
 840                     || renderer->item != node->parent
 841                     || renderer->node != node)
 842                         break;
 843
 844                 /* Replace any child nodes with the normalized text node. */
 845                 list = get_dom_node_list(node->parent, node);
 846                 done_dom_node_list(*list);
 847                 if (is_dom_string_set(&renderer->text)) {
 848                         if (!add_dom_node(node, DOM_NODE_TEXT, &renderer->text))
 849                                 done_dom_string(&renderer->text);
 850                 }
 851                 renderer->node = NULL;
 852                 break;
 853
 854         default:
 855                 break;
 856         }
 857
 858         return DOM_CODE_OK;
 859 }
 860
 861
 862 static struct dom_string *
 863 get_rss_text(struct dom_node *node, enum rss_element_type type)
 864 {
 865         node = get_dom_node_child(node, DOM_NODE_ELEMENT, type);
 866
 867         if (!node) return NULL;
 868
 869         node = get_dom_node_child(node, DOM_NODE_TEXT, 0);
 870
 871         return node ? &node->string: NULL;
 872 }
 873
 874 static void
 875 render_rss_item(struct dom_renderer *renderer, struct dom_node *item)
 876 {
 877         struct dom_string *title  = get_rss_text(item, RSS_ELEMENT_TITLE);
 878         struct dom_string *link   = get_rss_text(item, RSS_ELEMENT_LINK);
 879         struct dom_string *author = get_rss_text(item, RSS_ELEMENT_AUTHOR);
 880         struct dom_string *date   = get_rss_text(item, RSS_ELEMENT_PUBDATE);
 881
 882         if (title && is_dom_string_set(title)) {
 883                 if (item == renderer->channel) {
 884                         unsigned char *str;
 885
 886                         str = convert_string(renderer->convert_table,
 887                                              title->string, title->length,
 888                                              renderer->document->options.cp,
 889                                              CSM_DEFAULT, NULL, NULL, NULL);
 890                         if (str)
 891                                 renderer->document->title = str;
 892                 }
 893                 render_dom_text(renderer, &renderer->styles[DOM_NODE_ELEMENT],
 894                                 title->string, title->length);
 895         }
 896
 897         if (link && is_dom_string_set(link)) {
 898                 X(renderer)++;
 899                 add_dom_link(renderer, "[link]", 6, link->string, link->length);
 900         }
 901
 902         /* New line, and indent */
 903         Y(renderer)++;
 904         X(renderer) = 0;
 905
 906         if (author && is_dom_string_set(author)) {
 907                 render_dom_text(renderer, &renderer->styles[DOM_NODE_COMMENT],
 908                                 author->string, author->length);
 909         }
 910
 911         if (date && is_dom_string_set(date)) {
 912                 if (author && is_dom_string_set(author)) {
 913                         render_dom_text(renderer, &renderer->styles[DOM_NODE_COMMENT],
 914                                         " - ", 3);
 915                 }
 916
 917                 render_dom_text(renderer, &renderer->styles[DOM_NODE_COMMENT],
 918                                 date->string, date->length);
 919         }
 920
 921         if ((author && is_dom_string_set(author))
 922             || (date && is_dom_string_set(date))) {
 923                 /* New line, and indent */
 924                 Y(renderer)++;
 925                 X(renderer) = 0;
 926         }
 927 }
 928
 929 enum dom_code
 930 dom_rss_pop_document(struct dom_stack *stack, struct dom_node *root, void *data)
 931 {
 932         struct dom_renderer *renderer = stack->current->data;
 933
 934         if (!renderer->channel)
 935                 return DOM_CODE_OK;
 936
 937         render_rss_item(renderer, renderer->channel);
 938
 939         if (renderer->items) {
 940                 struct dom_node *node;
 941                 int index;
 942
 943                 foreach_dom_node (renderer->items, node, index) {
 944                         Y(renderer)++;
 945                         X(renderer) = 0;
 946                         render_rss_item(renderer, node);
 947                 }
 948         }
 949
 950         if (is_dom_string_set(&renderer->text))
 951                 done_dom_string(&renderer->text);
 952         mem_free_if(renderer->items);
 953
 954         /* ELinks does not provide any sort of DOM access to the RSS
 955          * document after it has been rendered.  Tell the caller to
 956          * free the document node and all of its children.  Otherwise,
 957          * they would leak.  */
 958         return DOM_CODE_FREE_NODE;
 959 }
 960
 961
 962 static struct dom_stack_context_info dom_rss_renderer_context_info = {
 963         /* Object size: */                      0,
 964         /* Push: */
 965         {
 966                 /*                              */ NULL,
 967                 /* DOM_NODE_ELEMENT             */ dom_rss_push_element,
 968                 /* DOM_NODE_ATTRIBUTE           */ NULL,
 969                 /* DOM_NODE_TEXT                */ NULL,
 970                 /* DOM_NODE_CDATA_SECTION       */ NULL,
 971                 /* DOM_NODE_ENTITY_REFERENCE    */ NULL,
 972                 /* DOM_NODE_ENTITY              */ NULL,
 973                 /* DOM_NODE_PROC_INSTRUCTION    */ NULL,
 974                 /* DOM_NODE_COMMENT             */ NULL,
 975                 /* DOM_NODE_DOCUMENT            */ NULL,
 976                 /* DOM_NODE_DOCUMENT_TYPE       */ NULL,
 977                 /* DOM_NODE_DOCUMENT_FRAGMENT   */ NULL,
 978                 /* DOM_NODE_NOTATION            */ NULL,
 979         },
 980         /* Pop: */
 981         {
 982                 /*                              */ NULL,
 983                 /* DOM_NODE_ELEMENT             */ dom_rss_pop_element,
 984                 /* DOM_NODE_ATTRIBUTE           */ NULL,
 985                 /* DOM_NODE_TEXT                */ NULL,
 986                 /* DOM_NODE_CDATA_SECTION       */ NULL,
 987                 /* DOM_NODE_ENTITY_REFERENCE    */ NULL,
 988                 /* DOM_NODE_ENTITY              */ NULL,
 989                 /* DOM_NODE_PROC_INSTRUCTION    */ NULL,
 990                 /* DOM_NODE_COMMENT             */ NULL,
 991                 /* DOM_NODE_DOCUMENT            */ dom_rss_pop_document,
 992                 /* DOM_NODE_DOCUMENT_TYPE       */ NULL,
 993                 /* DOM_NODE_DOCUMENT_FRAGMENT   */ NULL,
 994                 /* DOM_NODE_NOTATION            */ NULL,
 995         }
 996 };
 997
 998
 999 static void
1000 get_doctype(struct dom_renderer *renderer, struct cache_entry *cached)
1001 {
1002         if (!c_strcasecmp("application/rss+xml", cached->content_type)) {
1003                 renderer->doctype = SGML_DOCTYPE_RSS;
1004
1005         } else if (!c_strcasecmp("application/docbook+xml",
1006                                  cached->content_type)) {
1007                 renderer->doctype = SGML_DOCTYPE_DOCBOOK;
1008
1009         } else if (!c_strcasecmp("application/xbel+xml", cached->content_type)
1010                    || !c_strcasecmp("application/x-xbel", cached->content_type)
1011                    || !c_strcasecmp("application/xbel", cached->content_type)) {
1012                 renderer->doctype = SGML_DOCTYPE_XBEL;
1013
1014         } else {
1015                 assertm(!c_strcasecmp("text/html", cached->content_type)
1016                         || !c_strcasecmp("application/xhtml+xml",
1017                                          cached->content_type),
1018                         "Couldn't resolve doctype '%s'", cached->content_type);
1019
1020                 renderer->doctype = SGML_DOCTYPE_HTML;
1021         }
1022 }
1023
1024 /* Shared multiplexor between renderers */
1025 void
1026 render_dom_document(struct cache_entry *cached, struct document *document,
1027                     struct string *buffer)
1028 {
1029         unsigned char *head = empty_string_or_(cached->head);
1030         struct dom_renderer renderer;
1031         struct dom_config config;
1032         struct conv_table *convert_table;
1033         struct sgml_parser *parser;
1034         enum sgml_parser_type parser_type;
1035         unsigned char *string = struri(cached->uri);
1036         size_t length = strlen(string);
1037         struct dom_string uri = INIT_DOM_STRING(string, length);
1038         enum dom_code code;
1039
1040         convert_table = get_convert_table(head, document->options.cp,
1041                                           document->options.assume_cp,
1042                                           &document->cp,
1043                                           &document->cp_status,
1044                                           document->options.hard_assume);
1045
1046         init_dom_renderer(&renderer, document, buffer, convert_table);
1047
1048         document->bgcolor = document->options.default_style.bg;
1049 #ifdef CONFIG_UTF8
1050         document->options.utf8 = is_cp_utf8(document->options.cp);
1051 #endif /* CONFIG_UTF8 */
1052
1053         if (document->options.plain)
1054                 parser_type = SGML_PARSER_STREAM;
1055         else
1056                 parser_type = SGML_PARSER_TREE;
1057
1058         get_doctype(&renderer, cached);
1059
1060         parser = init_sgml_parser(parser_type, renderer.doctype, &uri, 0);
1061         if (!parser) return;
1062
1063         if (document->options.plain) {
1064                 add_dom_stack_context(&parser->stack, &renderer,
1065                                       &dom_source_renderer_context_info);
1066
1067         } else if (renderer.doctype == SGML_DOCTYPE_RSS) {
1068                 add_dom_stack_context(&parser->stack, &renderer,
1069                                       &dom_rss_renderer_context_info);
1070                 add_dom_config_normalizer(&parser->stack, &config, RSS_CONFIG_FLAGS);
1071         }
1072
1073         /* FIXME: When rendering this way we don't really care about the code.
1074          * However, it will be useful when we will be able to also
1075          * incrementally parse new data. This will require the parser to live
1076          * during the fetching of data. */
1077         code = parse_sgml(parser, buffer->source, buffer->length, 1);
1078         if (parser->root) {
1079                 assert(parser->stack.depth == 1);
1080
1081                 get_dom_stack_top(&parser->stack)->immutable = 0;
1082                 /* For SGML_PARSER_STREAM this will free the DOM
1083                  * root node. */
1084                 pop_dom_node(&parser->stack);
1085         }
1086
1087         done_dom_renderer(&renderer);
1088         done_sgml_parser(parser);
1089 }