wap_push_sl_compiler.c File Reference

#include <ctype.h>
#include <inttypes.h>
#include <libxml/xmlmemory.h>
#include <libxml/tree.h>
#include <libxml/debugXML.h>
#include <libxml/encoding.h>
#include "xml_shared.h"
#include "wap_push_sl_compiler.h"
#include "xml_definitions.h"

Go to the source code of this file.

Data Structures
struct	sl_2table_t
struct	sl_3table_t

Macros
#define	NUMBER_OF_ELEMENTS   sizeof(sl_elements)/sizeof(sl_elements[0])
#define	NUMBER_OF_ATTRIBUTES   sizeof(sl_attributes)/sizeof(sl_attributes[0])
#define	NUMBER_OF_URL_VALUES   sizeof(sl_url_values)/sizeof(sl_url_values[0])

Typedefs
typedef struct sl_2table_t	sl_2table_t
typedef struct sl_3table_t	sl_3table_t

Functions
static int	parse_document (xmlDocPtr document, Octstr *charset, simple_binary_t **slbxml)
static int	parse_node (xmlNodePtr node, simple_binary_t **slbxml)
static int	parse_element (xmlNodePtr node, simple_binary_t **slbxml)
static int	parse_attribute (xmlAttrPtr attr, simple_binary_t **slbxml)
static int	url (int hex)
static int	action (int hex)
static void	parse_url_value (Octstr *value, simple_binary_t **slbxml)
int	sl_compile (Octstr *sl_doc, Octstr *charset, Octstr **sl_binary)

Variables
static sl_2table_t	sl_elements []
static sl_3table_t	sl_attributes []
static sl_2table_t	sl_url_values []

Macro Definition Documentation

NUMBER_OF_ATTRIBUTES

#define NUMBER_OF_ATTRIBUTES   sizeof(sl_attributes)/sizeof(sl_attributes[0])

Definition at line 127 of file wap_push_sl_compiler.c.

Referenced by parse_attribute().

NUMBER_OF_ELEMENTS

#define NUMBER_OF_ELEMENTS   sizeof(sl_elements)/sizeof(sl_elements[0])

Definition at line 109 of file wap_push_sl_compiler.c.

NUMBER_OF_URL_VALUES

#define NUMBER_OF_URL_VALUES   sizeof(sl_url_values)/sizeof(sl_url_values[0])

Definition at line 141 of file wap_push_sl_compiler.c.

Referenced by parse_url_value().

Typedef Documentation

sl_2table_t

typedef struct sl_2table_t sl_2table_t

Definition at line 87 of file wap_push_sl_compiler.c.

sl_3table_t

typedef struct sl_3table_t sl_3table_t

Definition at line 99 of file wap_push_sl_compiler.c.

Function Documentation

action()

static int action ( int  hex )

static

Definition at line 440 of file wap_push_sl_compiler.c.

Referenced by parse_attribute().

{
    switch ((unsigned char) hex) {
    case 0x05: case 0x06: /* action execute-low, action execute-high */
    case 0x07:            /* action cache */
    return 1;
    }
    return 0;
}

parse_attribute()

static int parse_attribute ( xmlAttrPtr  attr, simple_binary_t **  slbxml  )

static

Definition at line 354 of file wap_push_sl_compiler.c.

References action(), create_octstr_from_node, debug(), error(), name, NUMBER_OF_ATTRIBUTES, octstr_compare(), octstr_create, octstr_delete(), octstr_destroy(), octstr_imm(), octstr_len(), octstr_ncompare(), output_char(), parse_inline_string(), parse_url_value(), sl_attributes, sl_3table_t::token, url(), sl_3table_t::value_part, and warning().

Referenced by parse_element().

{
    Octstr *name,
           *value,
           *valueos;
    unsigned char sl_hex;
    size_t i,
           value_len;

    name = octstr_create((char *)attr->name);

    if (attr->children != NULL)
        value = create_octstr_from_node((char *)attr->children);
    else
        value = NULL;

    if (value == NULL)
        goto error;

    i = 0;
    valueos = NULL;
    while (i < NUMBER_OF_ATTRIBUTES) {
        if (octstr_compare(name, octstr_imm(sl_attributes[i].name)) == 0) {
        if (sl_attributes[i].value_part == NULL) {
            debug("wap.push.sl.compiler", 0, "value part was NULL");
            break; 
            } else {
                value_len = octstr_len(valueos = 
                    octstr_imm(sl_attributes[i].value_part));
            if (octstr_ncompare(value, valueos, value_len) == 0) {
            break;
                }
            }
        }
       ++i;
    }

    if (i == NUMBER_OF_ATTRIBUTES) {
        warning(0, "unknown attribute in SL source");
        goto error;
    }

    sl_hex = sl_attributes[i].token;
    if (action(sl_hex)) {
        output_char(sl_hex, slbxml);
    } else if (url(sl_hex)) {
        output_char(sl_hex, slbxml);
        octstr_delete(value, 0, octstr_len(valueos));
        parse_url_value(value, slbxml);
    } else {
        output_char(sl_hex, slbxml);
        parse_inline_string(value, slbxml);
    } 

    octstr_destroy(name);
    octstr_destroy(value);
    return 0;

error:
    octstr_destroy(name);
    octstr_destroy(value);
    return -1;    
}

parse_document()

static int parse_document ( xmlDocPtr  document, Octstr *  charset, simple_binary_t **  slbxml  )

static

Definition at line 206 of file wap_push_sl_compiler.c.

References charset, octstr_create, octstr_destroy(), parse_charset(), and parse_node().

Referenced by sl_compile().

{
    xmlNodePtr node;

    (**slbxml).wbxml_version = 0x02; /* WBXML Version number 1.2  */
    (**slbxml).public_id = 0x06;  /* SL 1.0 Public ID */
    
    charset = octstr_create("UTF-8");
    (**slbxml).charset = parse_charset(charset);
    octstr_destroy(charset);

    node = xmlDocGetRootElement(document);
    return parse_node(node, slbxml);
}

parse_element()

static int parse_element ( xmlNodePtr  node, simple_binary_t **  slbxml  )

static

Definition at line 297 of file wap_push_sl_compiler.c.

References element_check_content(), name, octstr_compare(), octstr_create, octstr_destroy(), octstr_duplicate, octstr_get_cstr, octstr_imm(), octstr_len(), output_char(), output_octet_string(), parse_attribute(), parse_end(), sl_elements, sl_2table_t::token, warning(), WBXML_CONTENT_BIT, and WBXML_LITERAL.

Referenced by parse_node().

{
    Octstr *name,
           *nameos;
    unsigned char status_bits,
             sl_hex;
    int add_end_tag;
    xmlAttrPtr attribute;

    name = octstr_create((char *)node->name);
    if (octstr_len(name) == 0) {
        octstr_destroy(name);
        return -1;
    }

    status_bits = 0x00;
    sl_hex = 0x00;
    add_end_tag = 0;

    if (octstr_compare(name, octstr_imm(sl_elements[0].name)) != 0) {
        warning(0, "unknown tag %s in SL source", octstr_get_cstr(name));
        sl_hex = WBXML_LITERAL;
        if ((status_bits = element_check_content(node)) > 0) {
        sl_hex = sl_hex | status_bits;
        /* If this node has children, the end tag must be added after 
           them. */
        if ((status_bits & WBXML_CONTENT_BIT) == WBXML_CONTENT_BIT)
        add_end_tag = 1;
    }
    output_char(sl_hex, slbxml);
        output_octet_string(nameos = octstr_duplicate(name), slbxml);
        octstr_destroy(nameos);
    } else {
        sl_hex = sl_elements[0].token;
        if ((status_bits = element_check_content(node)) > 0) {
        sl_hex = sl_hex | status_bits;
        
        if ((status_bits & WBXML_CONTENT_BIT) == WBXML_CONTENT_BIT) {
            add_end_tag = 1;
            }
            output_char(sl_hex, slbxml);
        }
    }

    if (node->properties != NULL) {
    attribute = node->properties;
    while (attribute != NULL) {
        parse_attribute(attribute, slbxml);
        attribute = attribute->next;
    }
    parse_end(slbxml);
    }

    octstr_destroy(name);
    return add_end_tag;
}

parse_node()

static int parse_node ( xmlNodePtr  node, simple_binary_t **  slbxml  )

static

Definition at line 231 of file wap_push_sl_compiler.c.

References error(), parse_element(), parse_end(), and warning().

Referenced by parse_document().

{
    int status = 0;
    
    /* Call for the parser function of the node type. */
    switch (node->type) {
    case XML_ELEMENT_NODE:
    status = parse_element(node, slbxml);
    break;
    case XML_TEXT_NODE:
    case XML_COMMENT_NODE:
    case XML_PI_NODE:
    /* Text nodes, comments and PIs are ignored. */
    break;
    /*
     * XML has also many other node types, these are not needed with 
     * SL. Therefore they are assumed to be an error.
     */
    default:
    error(0, "SL COMPILER: Unknown XML node in the SL source.");
    return -1;
    break;
    }

    /* 
     * If node is an element with content, it will need an end tag after it's
     * children. The status for it is returned by parse_element.
     */
    switch (status) {
    case 0:

    if (node->children != NULL)
        if (parse_node(node->children, slbxml) == -1)
        return -1;
    break;
    case 1:
    if (node->children != NULL)
        if (parse_node(node->children, slbxml) == -1)
        return -1;
    parse_end(slbxml);
    break;

    case -1: /* Something went wrong in the parsing. */
    return -1;
    default:
    warning(0,"SL compiler: undefined return value in a parse function.");
    return -1;
    break;
    }

    if (node->next != NULL)
    if (parse_node(node->next, slbxml) == -1)
        return -1;

    return 0;
}

parse_url_value()

static void parse_url_value ( Octstr *  value, simple_binary_t **  slbxml  )

static

Definition at line 457 of file wap_push_sl_compiler.c.

References name, NUMBER_OF_URL_VALUES, octstr_delete(), octstr_destroy(), octstr_duplicate, octstr_imm(), octstr_len(), octstr_search(), output_char(), parse_inline_string(), sl_url_values, and token.

Referenced by parse_attribute().

{
    size_t i;
    long pos;
    Octstr *urlos,
           *first_part,
       *last_part;
    size_t first_part_len;

    i = 0;
    first_part_len = 0;
    first_part = NULL;
    last_part = NULL;
    while (i < NUMBER_OF_URL_VALUES) {
        pos = octstr_search(value, 
            urlos = octstr_imm(sl_url_values[i].name), 0);
        if (pos >= 0) {
        first_part = octstr_duplicate(value);
            octstr_delete(first_part, pos, octstr_len(first_part) - pos);
            first_part_len = octstr_len(first_part);
            parse_inline_string(first_part, slbxml);
            output_char(sl_url_values[i].token, slbxml);
            last_part = octstr_duplicate(value);
            octstr_delete(last_part, 0, first_part_len + octstr_len(urlos));
            parse_inline_string(last_part, slbxml);
        octstr_destroy(first_part);
            octstr_destroy(last_part);
            break;
        }
        octstr_destroy(urlos);
        ++i;
    }

    if (pos < 0) 
    parse_inline_string(value, slbxml);
        
}

sl_compile()

int sl_compile	(	Octstr *	sl_doc,
		Octstr *	charset,
		Octstr **	sl_binary
	)

Definition at line 163 of file wap_push_sl_compiler.c.

References charset, error(), octstr_create, octstr_destroy(), octstr_get_cstr, octstr_len(), octstr_strip_blanks(), parse_document(), set_charset(), simple_binary_create(), simple_binary_destroy(), simple_binary_output(), and size.

Referenced by convert_sl_to_slc(), and main().

{
    simple_binary_t *slbxml;
    int ret;
    xmlDocPtr pDoc;
    size_t size;
    char *sl_c_text;

    *sl_binary = octstr_create(""); 
    slbxml = simple_binary_create();

    octstr_strip_blanks(sl_doc);
    set_charset(sl_doc, charset);
    size = octstr_len(sl_doc);
    sl_c_text = octstr_get_cstr(sl_doc);
    pDoc = xmlParseMemory(sl_c_text, size);

    ret = 0;
    if (pDoc) {
        ret = parse_document(pDoc, charset, &slbxml);
        simple_binary_output(*sl_binary, slbxml);
        xmlFreeDoc(pDoc);
    } else {
        xmlFreeDoc(pDoc);
        octstr_destroy(*sl_binary);
        simple_binary_destroy(slbxml);
        error(0, "SL: No document to parse. Probably an error in SL source");
        return -1;
    }

    simple_binary_destroy(slbxml);

    return ret;
}

url()

static int url ( int  hex )

static

Definition at line 423 of file wap_push_sl_compiler.c.

Referenced by parse_attribute().

{
    switch ((unsigned char) hex) {
    case 0x08:            /* href */
    case 0x09: case 0x0b: /* href http://, href https:// */
    case 0x0a: case 0x0c: /* href http://www., href https://www. */
    return 1;
    }
    return 0;
}

Variable Documentation

sl_attributes

sl_3table_t sl_attributes[]

static

Initial value:

= {
    { "action", "execute-low", 0x05 }, 
    { "action", "execute-high", 0x06 }, 
    { "action", "cache", 0x07 }, 
    { "href", "http://", 0x09 },
    { "href", "http://www.", 0x0a }, 
    { "href", "https://", 0x0b },    
    { "href", "https://www.", 0x0c },
    { "href", NULL, 0x08 }
}

Definition at line 116 of file wap_push_sl_compiler.c.

Referenced by parse_attribute().

sl_elements

sl_2table_t sl_elements[]

static

Initial value:

= {
    { "sl", 0x05 }
}

Definition at line 105 of file wap_push_sl_compiler.c.

Referenced by parse_element().

sl_url_values

sl_2table_t sl_url_values[]

static

Initial value:

= {
    { ".com/", 0x85 },
    { ".edu/", 0x86 },
    { ".net/", 0x87 },
    { ".org/", 0x88 },
}

Definition at line 134 of file wap_push_sl_compiler.c.

Referenced by parse_url_value().