src/dom/sgml/dump.c

   1 /* SGML generics */
   2
   3 #ifdef HAVE_CONFIG_H
   4 #include "config.h"
   5 #endif
   6
   7 #include <stdlib.h>
   8 #include <string.h>
   9
  10 #include "elinks.h"
  11
  12 #include "dom/node.h"
  13 #include "dom/sgml/dump.h"
  14 #include "dom/stack.h"
  15 #include "dom/string.h"
  16
  17
  18 static enum dom_code
  19 sgml_file_dumper_element_push(struct dom_stack *stack, struct dom_node *node, void *data)
  20 {
  21         FILE *file = stack->current->data;
  22         struct dom_string *string = &node->string;
  23
  24         fprintf(file, "<%.*s", string->length, string->string);
  25         if (!node->data.element.map
  26             || node->data.element.map->size == 0)
  27                 fprintf(file, ">");
  28
  29         return DOM_CODE_OK;
  30 }
  31
  32 static enum dom_code
  33 sgml_file_dumper_element_pop(struct dom_stack *stack, struct dom_node *node, void *data)
  34 {
  35         FILE *file = stack->current->data;
  36         struct dom_string *string = &node->string;
  37
  38         fprintf(file, "</%.*s>", string->length, string->string);
  39
  40         return DOM_CODE_OK;
  41 }
  42
  43 static enum dom_code
  44 sgml_file_dumper_attribute_push(struct dom_stack *stack, struct dom_node *node, void *data)
  45 {
  46         FILE *file = stack->current->data;
  47         struct dom_string *name = &node->string;
  48         struct dom_string *value = &node->data.attribute.value;
  49
  50         if (node->parent->type == DOM_NODE_PROCESSING_INSTRUCTION)
  51                 return DOM_CODE_OK;
  52
  53         fprintf(file, " %.*s", name->length, name->string);
  54
  55         if (value->string) {
  56                 if (node->data.attribute.quoted)
  57                         fprintf(file, "=%c%.*s%c",
  58                                 node->data.attribute.quoted,
  59                                 value->length, value->string,
  60                                 node->data.attribute.quoted);
  61                 else
  62                         /* FIXME: 'encode' if the value contains '"'s? */
  63                         fprintf(file, "=\"%.*s\"", value->length, value->string);
  64         }
  65
  66         if (!get_dom_node_next(node))
  67                 fprintf(file, ">");
  68
  69         return DOM_CODE_OK;
  70 }
  71
  72 static enum dom_code
  73 sgml_file_dumper_proc_instruction_push(struct dom_stack *stack, struct dom_node *node, void *data)
  74 {
  75         FILE *file = stack->current->data;
  76         struct dom_string *target = &node->string;
  77         struct dom_string *instruction = &node->data.proc_instruction.instruction;
  78
  79         fprintf(file, "<?%.*s %.*s?>",
  80                 target->length, target->string,
  81                 instruction->length, instruction->string);
  82
  83         return DOM_CODE_OK;
  84 }
  85
  86 static enum dom_code
  87 sgml_file_dumper_text_push(struct dom_stack *stack, struct dom_node *node, void *data)
  88 {
  89         FILE *file = stack->current->data;
  90         struct dom_string *string = &node->string;
  91
  92         fprintf(file, "%.*s", string->length, string->string);
  93
  94         return DOM_CODE_OK;
  95 }
  96
  97 static enum dom_code
  98 sgml_file_dumper_cdata_section_push(struct dom_stack *stack, struct dom_node *node, void *data)
  99 {
 100         FILE *file = stack->current->data;
 101         struct dom_string *string = &node->string;
 102
 103         fprintf(file, "<![CDATA[%.*s]]>", string->length, string->string);
 104
 105         return DOM_CODE_OK;
 106 }
 107
 108 static enum dom_code
 109 sgml_file_dumper_comment_push(struct dom_stack *stack, struct dom_node *node, void *data)
 110 {
 111         FILE *file = stack->current->data;
 112         struct dom_string *string = &node->string;
 113
 114         fprintf(file, "<!--%.*s-->", string->length, string->string);
 115
 116         return DOM_CODE_OK;
 117 }
 118
 119 static enum dom_code
 120 sgml_file_dumper_entity_ref_push(struct dom_stack *stack, struct dom_node *node, void *data)
 121 {
 122         FILE *file = stack->current->data;
 123         struct dom_string *string = &node->string;
 124
 125         fprintf(file, "&%.*s;", string->length, string->string);
 126
 127         return DOM_CODE_OK;
 128 }
 129
 130 struct dom_stack_context_info sgml_file_dumper = {
 131         /* Object size: */                      0,
 132         /* Push: */
 133         {
 134                 /*                              */ NULL,
 135                 /* DOM_NODE_ELEMENT             */ sgml_file_dumper_element_push,
 136                 /* DOM_NODE_ATTRIBUTE           */ sgml_file_dumper_attribute_push,
 137                 /* DOM_NODE_TEXT                */ sgml_file_dumper_text_push,
 138                 /* DOM_NODE_CDATA_SECTION       */ sgml_file_dumper_cdata_section_push,
 139                 /* DOM_NODE_ENTITY_REFERENCE    */ sgml_file_dumper_entity_ref_push,
 140                 /* DOM_NODE_ENTITY              */ NULL,
 141                 /* DOM_NODE_PROC_INSTRUCTION    */ sgml_file_dumper_proc_instruction_push,
 142                 /* DOM_NODE_COMMENT             */ sgml_file_dumper_comment_push,
 143                 /* DOM_NODE_DOCUMENT            */ NULL,
 144                 /* DOM_NODE_DOCUMENT_TYPE       */ NULL,
 145                 /* DOM_NODE_DOCUMENT_FRAGMENT   */ NULL,
 146                 /* DOM_NODE_NOTATION            */ NULL,
 147         },
 148         /* Pop: */
 149         {
 150                 /*                              */ NULL,
 151                 /* DOM_NODE_ELEMENT             */ sgml_file_dumper_element_pop,
 152                 /* DOM_NODE_ATTRIBUTE           */ NULL,
 153                 /* DOM_NODE_TEXT                */ NULL,
 154                 /* DOM_NODE_CDATA_SECTION       */ NULL,
 155                 /* DOM_NODE_ENTITY_REFERENCE    */ NULL,
 156                 /* DOM_NODE_ENTITY              */ NULL,
 157                 /* DOM_NODE_PROC_INSTRUCTION    */ NULL,
 158                 /* DOM_NODE_COMMENT             */ NULL,
 159                 /* DOM_NODE_DOCUMENT            */ NULL,
 160                 /* DOM_NODE_DOCUMENT_TYPE       */ NULL,
 161                 /* DOM_NODE_DOCUMENT_FRAGMENT   */ NULL,
 162                 /* DOM_NODE_NOTATION            */ NULL,
 163         }
 164 };
 165
 166 struct dom_stack_context *
 167 add_sgml_file_dumper(struct dom_stack *stack, FILE *file)
 168 {
 169         return add_dom_stack_context(stack, file, &sgml_file_dumper);
 170 }