wap_push_pap_compiler.c File Reference

#include <ctype.h>
#include <string.h>
#include <inttypes.h>
#include <libxml/xmlmemory.h>
#include <libxml/parser.h>
#include <libxml/tree.h>
#include <libxml/debugXML.h>
#include <libxml/encoding.h>
#include "shared.h"
#include "wap_push_pap_compiler.h"
#include "wap_push_ppg.h"

Go to the source code of this file.

Data Structures
struct	pap_attributes_t

Macros
#define	NUM_ELEMENTS   sizeof(pap_elements)/sizeof(pap_elements[0])
#define	NUM_ATTRIBUTES   sizeof(pap_attributes)/sizeof(pap_attributes[0])
#define	NUM_CODES   sizeof(pap_codes)/sizeof(pap_codes[0])
#define	NUM_BEARER_TYPES   sizeof(pap_bearer_types)/sizeof(pap_bearer_types[0])
#define	NUM_NETWORK_TYPES
#define	create_octstr_from_node(node)   (octstr_create(node->content))
#define	NUMBER_OF_IP6_BEARERS   sizeof(ip6_bearers)/sizeof(ip6_bearers[0])
#define	NUMBER_OF_IP4_BEARERS   sizeof(ip4_bearers)/sizeof(ip4_bearers[0])

Typedefs
typedef struct pap_attributes_t	pap_attributes_t

Enumerations
enum	{   NEITHER = 0, BEARER_ANY = 1, NETWORK_ANY = 2, EITHER = 3,   ERROR_ANY = 4 }

Functions
static int	parse_document (xmlDocPtr doc_p, WAPEvent **e)
static int	parse_node (xmlNodePtr node, WAPEvent **e, long *type_of_address, int *is_any)
static int	parse_element (xmlNodePtr node, WAPEvent **e, long *type_of_address, int *is_any)
static int	parse_attribute (Octstr *element_name, xmlAttrPtr attribute, WAPEvent **e, long *type_of_address, int *is_any)
static int	parse_attr_value (Octstr *element_name, Octstr *attr_name, Octstr *attr_value, WAPEvent **e, long *type_of_address, int *is_any)
static int	set_attribute_value (Octstr *element_name, Octstr *attr_value, Octstr *attr_name, WAPEvent **e)
static int	return_flag (Octstr *ros)
static void	wap_event_accept_or_create (Octstr *element_name, WAPEvent **e)
static int	parse_pap_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e)
static int	parse_push_message_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e)
static int	parse_address_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e, long *type_of_address)
static int	parse_quality_of_service_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e, int *is_any)
static int	parse_push_response_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e)
static int	parse_progress_note_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e)
static int	parse_bad_message_response_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e)
static int	parse_response_result_value (Octstr *attr_name, Octstr *attr_value, WAPEvent **e)
static int	parse_code (Octstr *attr_value)
static Octstr *	parse_bearer (Octstr *attr_value)
static Octstr *	parse_network (Octstr *attr_value)
static int	parse_requirement (Octstr *attr_value)
static int	parse_priority (Octstr *attr_value)
static int	parse_delivery_method (Octstr *attr_value)
static int	parse_state (Octstr *attr_value)
static long	parse_wappush_client_address (Octstr **address, long pos, long *type_of_address)
static long	parse_ppg_specifier (Octstr **address, long pos)
static long	parse_client_specifier (Octstr **address, long pos, long *type_of_address)
static long	parse_constant (const char *field_name, Octstr **address, long pos)
static long	parse_dom_fragment (Octstr **address, long pos)
static long	drop_character (Octstr **address, long pos)
static long	parse_type (Octstr **address, Octstr **type_value, long pos)
static long	parse_ext_qualifiers (Octstr **address, long pos, Octstr *type_value)
static long	parse_global_phone_number (Octstr **address, long pos)
static long	parse_ipv4 (Octstr **address, long pos)
static long	parse_ipv6 (Octstr **address, long pos)
static long	parse_escaped_value (Octstr **address, long pos)
static Octstr *	prepend_char (Octstr *address, unsigned char c)
static int	qualifiers (Octstr *address, long pos, Octstr *type)
static long	parse_qualifier_value (Octstr **address, long pos)
static long	parse_qualifier_keyword (Octstr **address, long pos)
static long	parse_ipv4_fragment (Octstr **address, long pos)
static long	parse_ipv6_fragment (Octstr **address, long pos)
static int	wina_bearer_identifier (Octstr *type_value)
static int	create_peek_window (Octstr **address, long *pos)
static long	rest_unescaped (Octstr **address, long pos)
static int	issafe (Octstr **address, long pos)
static long	accept_safe (Octstr **address, long pos)
static long	accept_escaped (Octstr **address, long pos)
static long	handle_two_terminators (Octstr **address, long pos, unsigned char comma, unsigned char point, unsigned char c, long fragment_parsed, long fragment_length)
static int	uses_gsm_msisdn_address (long bearer_required, Octstr *bearer)
static int	uses_ipv4_address (long bearer_required, Octstr *bearer)
static int	uses_ipv6_address (long bearer_required, Octstr *bearer)
static int	event_semantically_valid (WAPEvent *e, long type_of_address)
static char *	address_type (long type_of_address)
static void	set_defaults (WAPEvent **e, long type_of_address)
static void	set_bearer_defaults (WAPEvent **e, long type_of_address)
static void	set_network_defaults (WAPEvent **e, long type_of_address)
static int	set_anys (WAPEvent **e, long type_of_address, int is_any)
static void	set_any_value (int *is_any, Octstr *attr_name, Octstr *attr_value)
int	pap_compile (Octstr *pap_content, WAPEvent **e)
int	parse_address (Octstr **address, long *type_of_address)

Variables
static char *	pap_elements []
static pap_attributes_t	pap_attributes []
static int	pap_codes []
static char *	pap_bearer_types []
static char *	pap_network_types []
static char *	ip6_bearers []
static char *	ip4_bearers []
static char *	bearer_address []
static size_t	bearer_address_size

Macro Definition Documentation

create_octstr_from_node

#define create_octstr_from_node

(

node

)

(octstr_create(node->content))

Definition at line 327 of file wap_push_pap_compiler.c.

Referenced by check_variable_name(), get_do_element_name(), parse_attribute(), parse_cdata(), parse_text(), and string_table_collect_strings().

NUM_ATTRIBUTES

#define NUM_ATTRIBUTES   sizeof(pap_attributes)/sizeof(pap_attributes[0])

Definition at line 176 of file wap_push_pap_compiler.c.

Referenced by parse_attribute().

NUM_BEARER_TYPES

#define NUM_BEARER_TYPES   sizeof(pap_bearer_types)/sizeof(pap_bearer_types[0])

Definition at line 214 of file wap_push_pap_compiler.c.

Referenced by parse_bearer().

NUM_CODES

#define NUM_CODES   sizeof(pap_codes)/sizeof(pap_codes[0])

Definition at line 193 of file wap_push_pap_compiler.c.

Referenced by parse_code().

NUM_ELEMENTS

#define NUM_ELEMENTS   sizeof(pap_elements)/sizeof(pap_elements[0])

Definition at line 125 of file wap_push_pap_compiler.c.

Referenced by parse_element().

NUM_NETWORK_TYPES

#define NUM_NETWORK_TYPES

Value:

sizeof(pap_network_types)/ \
                          sizeof(pap_network_types[0])

Definition at line 234 of file wap_push_pap_compiler.c.

Referenced by parse_network().

NUMBER_OF_IP4_BEARERS

#define NUMBER_OF_IP4_BEARERS   sizeof(ip4_bearers)/sizeof(ip4_bearers[0])

Definition at line 652 of file wap_push_pap_compiler.c.

Referenced by uses_ipv4_address().

NUMBER_OF_IP6_BEARERS

#define NUMBER_OF_IP6_BEARERS   sizeof(ip6_bearers)/sizeof(ip6_bearers[0])

Definition at line 642 of file wap_push_pap_compiler.c.

Referenced by uses_ipv6_address().

Typedef Documentation

pap_attributes_t

typedef struct pap_attributes_t pap_attributes_t

Definition at line 135 of file wap_push_pap_compiler.c.

Enumeration Type Documentation

anonymous enum

anonymous enum

Enumerator
NEITHER
BEARER_ANY
NETWORK_ANY
EITHER
ERROR_ANY

Definition at line 396 of file wap_push_pap_compiler.c.

     {
    NEITHER = 0,
    BEARER_ANY = 1,
    NETWORK_ANY = 2,
    EITHER = 3,
    ERROR_ANY = 4
};

Function Documentation

accept_escaped()

static long accept_escaped ( Octstr **  address, long  pos  )

static

Definition at line 2141 of file wap_push_pap_compiler.c.

References drop_character(), octstr_create, octstr_destroy(), octstr_get_char(), octstr_hex_to_binary(), octstr_insert(), and prepend_char().

Referenced by parse_escaped_value().

{
    Octstr *temp;
    long i;
    unsigned char c;

    pos = drop_character(address, pos);
    temp = octstr_create("");

    for (i = 2; i > 0; i--) {
        c = octstr_get_char(*address, pos + i);
        temp = prepend_char(temp, c);
        pos = drop_character(address, pos + i);
        if (pos > 0)
      --pos;
    }

    if (octstr_hex_to_binary(temp) < 0) {
        octstr_destroy(temp);
        return -2;
    }

    octstr_insert(*address, temp, pos + 2);   /* To the end of the window */

    octstr_destroy(temp);
    return pos + 1;                           /* The position preceding the 
                                                 inserted character */
              
}

accept_safe()

static long accept_safe ( Octstr **  address, long  pos  )

static

Definition at line 2125 of file wap_push_pap_compiler.c.

References octstr_get_char().

Referenced by parse_escaped_value(), and rest_unescaped().

{
    unsigned char c;

    c = octstr_get_char(*address, pos);
    if ((isalnum(c) || c == '+' || c == '-' || c == '.' || c == '_') && 
            pos >= 0)
    --pos;
    else if (c == '=')
        return -1;
    else
        return -2;

    return pos;
}

address_type()

static char * address_type ( long  type_of_address )

static

Definition at line 542 of file wap_push_pap_compiler.c.

References ADDR_IPV4, ADDR_IPV6, ADDR_PLMN, ADDR_USER, and ADDR_WINA.

Referenced by event_semantically_valid(), is_phone_number(), set_addr_tuple(), and transform_message().

{
    switch(type_of_address) {
    case ADDR_USER:
    return "user defined address";
    case ADDR_PLMN:
    return "a phone number";
    case ADDR_IPV4:
    return "a IPv4 address";
    case ADDR_IPV6:
    return "a IPv6 address";
    case ADDR_WINA:
    return "a WINA accepted address";
    default:
    return "unknown address";
    }
}

create_peek_window()

static int create_peek_window ( Octstr **  address, long *  pos  )

static

Definition at line 2083 of file wap_push_pap_compiler.c.

References octstr_get_char().

Referenced by parse_escaped_value().

{
   long i;
    unsigned char c;

    i = 0;
    c = '=';
    while (i < 2 && (c = octstr_get_char(*address, *pos)) != '=') {
        if (*pos > 0)
            --*pos;
        ++i;
    }

    if (c == '=')
        return 0;

    return 1; 
}

drop_character()

static long drop_character ( Octstr **  address, long  pos  )

static

Definition at line 1718 of file wap_push_pap_compiler.c.

References octstr_delete().

Referenced by accept_escaped(), parse_client_specifier(), parse_constant(), parse_dom_fragment(), parse_escaped_value(), parse_global_phone_number(), parse_ppg_specifier(), parse_qualifier_keyword(), parse_qualifier_value(), and parse_type().

{
    if (pos >= 0) {
        octstr_delete(*address, pos, 1);
        if (pos > 0)
            --pos;
    }

    return pos;
}

event_semantically_valid()

static int event_semantically_valid ( WAPEvent *  e, long  type_of_address  )

static

Definition at line 569 of file wap_push_pap_compiler.c.

References ADDR_IPV4, ADDR_IPV6, ADDR_PLMN, address_type(), debug(), WAPEvent::type, WAPEvent::u, uses_gsm_msisdn_address(), uses_ipv4_address(), and uses_ipv6_address().

Referenced by parse_document().

{
    int ret;

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: doing semantic analysis"
          " for address type %s", address_type(type_of_address));
    if (e->type != Push_Message) {
        return 1;
    }
    
    if (e->u.Push_Message.network_required != 
         e->u.Push_Message.bearer_required) {
       debug("wap.push.pap.compiler", 0, "PAP COMPILER: network-required and"
             " bearer-required must have same value");
       return 0;
    }

    if (type_of_address == ADDR_PLMN) {
            if ((ret = uses_gsm_msisdn_address(
                     e->u.Push_Message.bearer_required,
                     e->u.Push_Message.bearer)) == 0) {
                debug("wap.push.pap.compiler", 0, "PAP COMPILER: bearer does"
                      " not accept PLMN address");
                return 0;
            } else if (ret == -1) {
            debug("wap.push.pap.compiler", 0, "PAP COMPILER: network or"
                      "bearer missing, reverting to GSM+SMS");
                return -1;
            } else
            return 1;
                
    }
    
    if (type_of_address == ADDR_IPV4) { 
            if ((ret = uses_ipv4_address(e->u.Push_Message.bearer_required,
                    e->u.Push_Message.bearer)) == 0) {
                debug("wap.push.pap.compiler", 0, "PAP COMPILER: bearer does"
                      " not accept IPv4 address");
                return 0;
            } else if (ret == -1) {
                debug("wap.push.pap.compiler", 0, "PAP COMPILER: network or"
                      " bearer missing, reverting to GSM+CSD");
            return -1;
            } else
            return 1;
    }
    
    if (type_of_address == ADDR_IPV6) { 
        if ((ret = uses_ipv6_address(e->u.Push_Message.bearer_required,
                 e->u.Push_Message.bearer)) == 0) {
             debug("wap.push.pap.compiler", 0, "PAP COMPILER: network or"
                   " bearer does not accept IPv6 address");
             return 0;
        } else if (ret == -1) {
             debug("wap.push.pap.compiler", 0, "PAP COMPILER: network or"
                   " bearer missing, reverting Any+Any");
         return -1;
        } else
         return 1;
    }
    
    return 0;
}

handle_two_terminators()

static long handle_two_terminators ( Octstr **  address, long  pos, unsigned char  comma, unsigned char  point, unsigned char  c, long  fragment_parsed, long  fragment_length  )

static

Definition at line 2174 of file wap_push_pap_compiler.c.

References comma, and octstr_delete().

Referenced by parse_ipv4_fragment(), and parse_ipv6_fragment().

{
    if (fragment_parsed == fragment_length && c != comma && c != point)
        return -2;

    if (c == point) 
        octstr_delete(*address, pos, 1);

    --pos;

    return pos;
}

issafe()

static int issafe ( Octstr **  address, long  pos  )

static

Definition at line 2117 of file wap_push_pap_compiler.c.

References octstr_get_char().

Referenced by parse_escaped_value().

{
    if (octstr_get_char(*address, pos) == '%')
        return 0;
    else
        return 1;
}

pap_compile()

int pap_compile	(	Octstr *	pap_content,
		WAPEvent **	e
	)

Definition at line 350 of file wap_push_pap_compiler.c.

References error(), octstr_get_cstr, octstr_len(), octstr_search_char(), octstr_strip_blanks(), parse_document(), wap_event_destroy(), and warning().

Referenced by main(), pap_request_thread(), and receive_push_reply().

{
    xmlDocPtr doc_p;
    size_t oslen;
    int ret;

    if (octstr_search_char(pap_content, '\0', 0) != -1) {
        warning(0, "PAP COMPILER: pap_compile: pap source contained a \\0"
                   " character");
        return -2;
    }

    octstr_strip_blanks(pap_content);
    oslen = octstr_len(pap_content);
    doc_p = xmlParseMemory(octstr_get_cstr(pap_content), oslen);
    if (doc_p == NULL) {
        goto error;
    }

    if ((ret = parse_document(doc_p, e)) < 0) { 
        goto parserror;
    }

    xmlFreeDoc(doc_p);
    return 0;

parserror:
    xmlFreeDoc(doc_p);
    wap_event_destroy(*e);
    *e = NULL;
    return ret;

error:
    warning(0, "PAP COMPILER: pap_compile: parse error in pap source");
    xmlFreeDoc(doc_p);
    wap_event_destroy(*e);
    *e = NULL;
    return -2;
}

parse_address()

int parse_address	(	Octstr **	address,
		long *	type_of_address
	)

Definition at line 1492 of file wap_push_pap_compiler.c.

References info(), octstr_delete(), octstr_destroy(), octstr_duplicate, octstr_get_char(), octstr_get_cstr, octstr_len(), octstr_search_char(), parse_ppg_specifier(), parse_wappush_client_address(), and warning().

Referenced by parse_address_value().

{
    long pos;
    Octstr *copy;

    pos = octstr_len(*address) - 1;
/*
 * Delete first separator, if there is one. This will help our parsing later.
 */
    if (octstr_get_char(*address, 0) == '/')
        octstr_delete(*address, 0, 1);

/*
 * WAP-209, chapter 8 states that addresses with telephone numbers
 * should not have a ppg specifier. WAP-151 grammar, however, makes it
 * mandatory. Best way to solve this contradiction seems to be regarding
 * ppg specifier optional - MMSC is very important type of pi.
 */
    if (octstr_search_char(*address, '@', 0) >= 0) {
        if ((pos = parse_ppg_specifier(address, pos)) < 0)
        return -2;
    }

    if ((pos = parse_wappush_client_address(address, pos, 
            type_of_address)) == -2) {
        warning(0, "illegal client address");
        return -2;
    } else if (pos == -1) {
        warning(0, "unimplemented feature");
        return -1;
    }

    info(0, "client address was <%s>, accepted", 
         octstr_get_cstr(copy = octstr_duplicate(*address)));    
    octstr_destroy(copy);

    return pos;
}

parse_address_value()

static int parse_address_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e, long *  type_of_address  )

static

Definition at line 1019 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_destroy(), octstr_duplicate, octstr_imm(), and parse_address().

Referenced by parse_attr_value().

{
    int ret;

    ret = -2;
    if (octstr_compare(attr_name, octstr_imm("address-value")) == 0) {
        octstr_destroy((**e).u.Push_Message.address_value);
    (**e).u.Push_Message.address_value = 
             (ret = parse_address(&attr_value, type_of_address)) > -1 ? 
             octstr_duplicate(attr_value) : octstr_imm("erroneous");
        return ret;
    } 

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown address element"
          " attribute");
    return -2;
}

parse_attr_value()

static int parse_attr_value ( Octstr *  element_name, Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e, long *  type_of_address, int *  is_any  )

static

Definition at line 1242 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_imm(), parse_address_value(), parse_bad_message_response_value(), parse_pap_value(), parse_progress_note_value(), parse_push_message_value(), parse_push_response_value(), parse_quality_of_service_value(), parse_response_result_value(), and wap_event_accept_or_create().

Referenced by parse_attribute().

{
    if (octstr_compare(attr_value, octstr_imm("erroneous")) == 0) {
        debug("wap.push.pap.compiler", 0, "unknown value for an attribute");
        return -2;
    }

    wap_event_accept_or_create(element_name, e);

    if (octstr_compare(element_name, octstr_imm("pap")) == 0) {
        return parse_pap_value(attr_name, attr_value, e);
    } else if (octstr_compare(element_name, octstr_imm("push-message")) == 0) {
        return parse_push_message_value(attr_name, attr_value, e);
    } else if (octstr_compare(element_name, octstr_imm("address")) == 0) {
        return parse_address_value(attr_name, attr_value, e, type_of_address);
    } else if (octstr_compare(element_name, 
                   octstr_imm("quality-of-service")) == 0) {
        return parse_quality_of_service_value(attr_name, attr_value, e, 
                                              is_any);
    } else if (octstr_compare(element_name, 
                              octstr_imm("push-response")) == 0) {
        return parse_push_response_value(attr_name, attr_value, e);
    } else if (octstr_compare(element_name, 
                   octstr_imm("progress-note")) == 0) {
        return parse_progress_note_value(attr_name, attr_value, e);
    } else if (octstr_compare(element_name, 
                   octstr_imm("badmessage-response")) == 0) {
        return parse_bad_message_response_value(attr_name, attr_value, e);
    } else if (octstr_compare(element_name, 
                   octstr_imm("response-result")) == 0) {
        return parse_response_result_value(attr_name, attr_value, e);
    }

    return -2; 
}

parse_attribute()

static int parse_attribute ( Octstr *  element_name, xmlAttrPtr  attribute, WAPEvent **  e, long *  type_of_address, int *  is_any  )

static

Definition at line 856 of file wap_push_pap_compiler.c.

References create_octstr_from_node, debug(), error(), name, NUM_ATTRIBUTES, octstr_compare(), octstr_create, octstr_destroy(), octstr_get_cstr, octstr_imm(), pap_attributes, parse_attr_value(), set_attribute_value(), and pap_attributes_t::value.

Referenced by parse_element().

{
    Octstr *attr_name, *value, *nameos;
    size_t i;
    int ret;

    nameos = octstr_imm("erroneous");
    attr_name = octstr_create((char *)attribute->name);

    if (attribute->children != NULL)
        value = create_octstr_from_node((char *)attribute->children);
    else
        value = octstr_imm("erroneous");

    i = 0;
    while (i < NUM_ATTRIBUTES) {
        if (octstr_compare(attr_name, nameos = 
                           octstr_imm(pap_attributes[i].name)) == 0)
        break;
        ++i;
    }

    if (i == NUM_ATTRIBUTES) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown attribute `%s' "
              "within XML entity `%s'", octstr_get_cstr(attr_name), 
              octstr_get_cstr(element_name));
        goto error;
    }

/*
 * Parse an attribute (it is, check cdata is has for a value) that is *not* an
 * enumeration. Legal values are defined in pap, chapter 9. 
 */
    if (pap_attributes[i].value == NULL) {
        ret = parse_attr_value(element_name, attr_name, value, e, 
                               type_of_address, is_any);

    if (ret == -2) {
        goto error;
        } else {
        goto parsed;
        }
    }

    while (octstr_compare(attr_name, 
            nameos = octstr_imm(pap_attributes[i].name)) == 0) {
        if (octstr_compare(value, octstr_imm(pap_attributes[i].value)) == 0)
        break;
        ++i;
    }

    if (octstr_compare(attr_name, nameos) != 0) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown attribute "
              "value `%s' for attribute `%s' within XML entity `%s'", 
              octstr_get_cstr(value), octstr_get_cstr(attr_name), 
              octstr_get_cstr(element_name));
        goto error;
    }

/*
 * Check that the value of the attribute is one enumerated for this attribute
 * in pap, chapter 9.
 */
    if (set_attribute_value(element_name, value, attr_name, e) == -1) 
        goto error;

    octstr_destroy(attr_name);
    octstr_destroy(value);

    return 0;

error:
    octstr_destroy(attr_name);
    octstr_destroy(value);
    return -2;

parsed:
    octstr_destroy(attr_name);
    octstr_destroy(value);
    return ret;
}

parse_bad_message_response_value()

static int parse_bad_message_response_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e  )

static

Definition at line 1156 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_duplicate, octstr_imm(), and parse_code().

Referenced by parse_attr_value().

{
    if (octstr_compare(attr_name, octstr_imm("code")) == 0) {
    (**e).u.Bad_Message_Response.code = parse_code(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, octstr_imm("desc")) == 0) {
    (**e).u.Bad_Message_Response.desc = octstr_duplicate(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, 
        octstr_imm("bad-message-fragment")) == 0) {
        (**e).u.Bad_Message_Response.bad_message_fragment = 
            octstr_duplicate(attr_value);
        return 0;
    }

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown bad message"
          " response element attribute");
    return -2;
}

parse_bearer()

static Octstr * parse_bearer ( Octstr *  attr_value )

static

Definition at line 1361 of file wap_push_pap_compiler.c.

References NUM_BEARER_TYPES, octstr_case_compare(), octstr_imm(), pap_bearer_types, and warning().

Referenced by parse_quality_of_service_value().

{
    size_t i;
    Octstr *ros;

    for (i = 0; i < NUM_BEARER_TYPES; i++) {
         if (octstr_case_compare(attr_value, 
                 ros = octstr_imm(pap_bearer_types[i])) == 0)
         return ros;
    }

    warning(0, "no such bearer");
    return NULL;
}

parse_client_specifier()

static long parse_client_specifier ( Octstr **  address, long  pos, long *  type_of_address  )

static

Definition at line 1587 of file wap_push_pap_compiler.c.

References ADDR_IPV4, ADDR_IPV6, ADDR_PLMN, ADDR_USER, ADDR_WINA, debug(), drop_character(), octstr_case_compare(), octstr_create, octstr_destroy(), octstr_imm(), parse_constant(), parse_error(), parse_escaped_value(), parse_ext_qualifiers(), parse_global_phone_number(), parse_ipv4(), parse_ipv6(), parse_type(), and wina_bearer_identifier().

Referenced by parse_wappush_client_address().

{
    Octstr *type_value;

    type_value = octstr_create("");

    if ((pos = parse_type(address, &type_value, pos)) < 0) {
        goto parse_error;
    }

    pos = drop_character(address, pos);

    if ((pos = parse_constant("/TYPE", address, pos)) < 0) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: constant TYPE"
              " missing from the client address");
        goto parse_error;
    }

    if (octstr_case_compare(type_value, octstr_imm("USER")) == 0) {
        *type_of_address = ADDR_USER;
        goto not_implemented;
    }

    if ((pos = parse_ext_qualifiers(address, pos, type_value)) < 0) {
        goto parse_error;
    }

    if (octstr_case_compare(type_value, octstr_imm("PLMN")) == 0) {
        *type_of_address = ADDR_PLMN;
        pos = parse_global_phone_number(address, pos);
    }

    else if (octstr_case_compare(type_value, octstr_imm("IPv4")) == 0) {
        *type_of_address = ADDR_IPV4;
        pos = parse_ipv4(address, pos);
    }

    else if (octstr_case_compare(type_value, octstr_imm("IPv6")) == 0) {
        *type_of_address = ADDR_IPV6;
        pos = parse_ipv6(address, pos);
    }

    else if (wina_bearer_identifier(type_value)) {
        *type_of_address = ADDR_WINA;
        pos = parse_escaped_value(address, pos); 
    }    

    else {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: wrong address type"
              " in the client address");
        goto parse_error; 
    }

    octstr_destroy(type_value);
    return pos;

not_implemented:
    octstr_destroy(type_value);
    return -1;

parse_error:
    octstr_destroy(type_value);
    return -2;
}

parse_code()

static int parse_code ( Octstr *  attr_value )

static

Definition at line 1325 of file wap_push_pap_compiler.c.

References NUM_CODES, octstr_compare(), octstr_destroy(), octstr_format(), octstr_parse_long(), PAP_BAD_REQUEST, PAP_CLIENT_ABORTED, pap_codes, PAP_INTERNAL_SERVER_ERROR, PAP_OK, PAP_SERVICE_FAILURE, and warning().

Referenced by parse_bad_message_response_value(), and parse_response_result_value().

{
    long attr_as_number;
    size_t i;
    Octstr *ros;

    for (i = 0; i < NUM_CODES; i++) {
         ros = octstr_format("%d", pap_codes[i]);
         if (octstr_compare(attr_value, ros) == 0) {
         octstr_destroy(ros);
         return pap_codes[i];
         }
         octstr_destroy(ros);
    }

    warning(0, "PAP COMPILER: parse_code: no such return code, reversing to"
               " x000 code");
    octstr_parse_long(&attr_as_number, attr_value, 0, 10);
    if (attr_as_number >= PAP_OK && attr_as_number < PAP_BAD_REQUEST) {
        attr_as_number = PAP_OK;
    } else if (attr_as_number >= PAP_BAD_REQUEST && 
            attr_as_number < PAP_INTERNAL_SERVER_ERROR) {
        attr_as_number = PAP_BAD_REQUEST;
    } else if (attr_as_number >= PAP_INTERNAL_SERVER_ERROR &&
        attr_as_number < PAP_SERVICE_FAILURE) {
        attr_as_number = PAP_INTERNAL_SERVER_ERROR;
    } else if (attr_as_number >= PAP_SERVICE_FAILURE &&
        attr_as_number < PAP_CLIENT_ABORTED) {
        attr_as_number = PAP_SERVICE_FAILURE;
    } else {
        attr_as_number = PAP_CLIENT_ABORTED;
    }
    
    return attr_as_number;
}

parse_constant()

static long parse_constant ( const char *  field_name, Octstr **  address, long  pos  )

static

Definition at line 1660 of file wap_push_pap_compiler.c.

References debug(), drop_character(), octstr_convert_range(), octstr_destroy(), octstr_format(), octstr_get_char(), octstr_len(), and size.

Referenced by parse_client_specifier(), and parse_wappush_client_address().

{
    size_t i, size;
    Octstr *nameos;

    nameos = octstr_format("%s", field_name);
    size = octstr_len(nameos);
    i = 0;
    
    /* convert both to lower case, see above note */
    octstr_convert_range(nameos, 0, octstr_len(nameos), tolower);
    octstr_convert_range(*address, 0, octstr_len(*address), tolower);
    
    while (octstr_get_char(*address, pos - i)  == 
               octstr_get_char(nameos, size-1 - i) && i <  size) {
        ++i;
    }

    while ((octstr_len(*address) > 0) && octstr_get_char(*address, pos) !=
               octstr_get_char(nameos, 0) && pos >= 0) {
        pos = drop_character(address, pos);
    }

    pos = drop_character(address, pos);    

    if (pos < 0 || i != size) {
        debug("wap.push.pap.compiler", 0, "parse_constant: unparsable"
              " constant %s", field_name);
        octstr_destroy(nameos);
        return -2;
    }

    octstr_destroy(nameos);
    return pos;
}

parse_delivery_method()

static int parse_delivery_method ( Octstr *  attr_value )

static

Definition at line 1433 of file wap_push_pap_compiler.c.

References octstr_case_compare(), octstr_imm(), PAP_CONFIRMED, PAP_NOT_SPECIFIED, PAP_PREFERCONFIRMED, PAP_UNCONFIRMED, and warning().

Referenced by set_attribute_value().

{
    long attr_as_number;

    attr_as_number = -2;
    if (octstr_case_compare(attr_value, octstr_imm("confirmed")) == 0)
        attr_as_number = PAP_CONFIRMED;
    else if (octstr_case_compare(attr_value, 
            octstr_imm("preferconfirmed")) == 0)
        attr_as_number = PAP_PREFERCONFIRMED;
    else if (octstr_case_compare(attr_value, octstr_imm("unconfirmed")) == 0)
        attr_as_number = PAP_UNCONFIRMED;
    else if (octstr_case_compare(attr_value, octstr_imm("notspecified")) == 0)
    attr_as_number = PAP_NOT_SPECIFIED;
    else
        warning(0, "illegal delivery method");
    
    return attr_as_number;
}

parse_document()

static int parse_document ( xmlDocPtr  doc_p, WAPEvent **  e  )

static

Definition at line 419 of file wap_push_pap_compiler.c.

References debug(), event_semantically_valid(), gw_assert(), info(), NEITHER, parse_node(), set_anys(), set_defaults(), wap_event_assert(), and warning().

Referenced by pap_compile().

{
    xmlNodePtr node;
    int ret,
        is_any;                   /* is bearer and/or network set any in qos
                                     attribute */
    long type_of_address;

    gw_assert(doc_p);
    node = xmlDocGetRootElement(doc_p);
    is_any = NEITHER;

    if ((ret = parse_node(node, e, &type_of_address, &is_any)) < 0)
        return ret;

    (*e)->u.Push_Message.address_type = type_of_address;

    if ((ret= event_semantically_valid(*e, type_of_address)) == 0) {
        warning(0, "wrong type of address for requested bearer");
        return -2;
    } else if (ret == -1) {
        info(0, "reverting to default bearer and network");
        set_defaults(e, type_of_address);
        return 0;
    }

    if (!set_anys(e, type_of_address, is_any)) {
        warning(0, "unable to handle any values in qos");
        return -2;
    } else {
        debug("wap.push.pap.compiler", 0, "using defaults instead of anys");
    }

    wap_event_assert(*e);

    return 0;
}

parse_dom_fragment()

static long parse_dom_fragment ( Octstr **  address, long  pos  )

static

Definition at line 1696 of file wap_push_pap_compiler.c.

References drop_character(), and octstr_get_char().

Referenced by parse_ppg_specifier().

{
    unsigned char c;

    if (pos >= 0) { 
        if (isalnum(octstr_get_char(*address, pos))) {
        pos = drop_character(address, pos);
        } else
        return -2;
    }

    while ((c = octstr_get_char(*address, pos)) != '@' && 
               octstr_get_char(*address, pos) != '.' && pos >= 0)  {
        if (isalnum(c) || c == '-') {
        pos = drop_character(address, pos);
        } else
        return -2;
    } 

    return pos;
}

parse_element()

static int parse_element ( xmlNodePtr  node, WAPEvent **  e, long *  type_of_address, int *  is_any  )

static

Definition at line 792 of file wap_push_pap_compiler.c.

References debug(), name, NUM_ELEMENTS, octstr_compare(), octstr_create, octstr_destroy(), octstr_dump, octstr_imm(), octstr_len(), pap_elements, and parse_attribute().

Referenced by parse_node().

{
    Octstr *name;
    xmlAttrPtr attribute;
    size_t i;
    int ret;

    name = octstr_create((char *)node->name);
    if (octstr_len(name) == 0) {
        octstr_destroy(name);
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: element name length"
              " zero");
        return -2;
    }
    
    i = 0;
    while (i < NUM_ELEMENTS) {
        if (octstr_compare(name, octstr_imm(pap_elements[i])) == 0)
            break;
        ++i;
    }

    if (i == NUM_ELEMENTS) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown element:");
        octstr_dump(name, 0);
        octstr_destroy(name);
        return -2;
    }

    if (node->properties != NULL) {
        attribute = node->properties;
        while (attribute != NULL) {
        if ((ret = parse_attribute(name, attribute, e,
                    type_of_address, is_any)) < 0) {
            octstr_destroy(name);
                return ret;
            }
            attribute = attribute->next;
        }
    }

    octstr_destroy(name);

    return 0;                     /* If we reach this point, our node does not
                                     have any attributes left (or it had no 
                                     attributes to start with). This is *not* 
                                     an error. */
}

parse_escaped_value()

static long parse_escaped_value ( Octstr **  address, long  pos  )

static

Definition at line 1898 of file wap_push_pap_compiler.c.

References accept_escaped(), accept_safe(), create_peek_window(), drop_character(), issafe(), octstr_get_char(), and rest_unescaped().

Referenced by parse_client_specifier().

{
    int ret;

    if (create_peek_window(address, &pos) == 0)
         if ((pos = rest_unescaped(address, pos)) == -2)
             return -2;

    while (octstr_get_char(*address, pos) != '=' && pos >= 0) {
        if ((ret = issafe(address, pos)) == 1) {
        pos = accept_safe(address, pos);

        } else if (ret == 0) {
        if ((pos = accept_escaped(address, pos)) < 0)
                return -2;  
            if (create_peek_window(address, &pos) == 0)
                if ((pos = rest_unescaped(address, pos)) == -2)
                    return -2;
        }
    }

    pos = drop_character(address, pos);

    return pos;
}

parse_ext_qualifiers()

static long parse_ext_qualifiers ( Octstr **  address, long  pos, Octstr *  type_value  )

static

Definition at line 1744 of file wap_push_pap_compiler.c.

References debug(), parse_qualifier_keyword(), parse_qualifier_value(), qualifiers(), and type.

Referenced by parse_client_specifier().

{
    int ret;

    while ((ret = qualifiers(*address, pos, type)) == 1) {
        if ((pos = parse_qualifier_value(address, pos)) < 0)
            return pos;

        if ((pos = parse_qualifier_keyword(address, pos)) < 0)
            return pos;
    }

    if (ret == 1) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: erroneous qualifiers"
              " in the client address");
        return -2;
    }

    return pos;
}

parse_global_phone_number()

static long parse_global_phone_number ( Octstr **  address, long  pos  )

static

Definition at line 1772 of file wap_push_pap_compiler.c.

References debug(), drop_character(), and octstr_get_char().

Referenced by parse_client_specifier().

{
    unsigned char c;

    while ((c = octstr_get_char(*address, pos)) != '+' && pos >= 0) {
         if (!isdigit(c) && c != '-' && c != '.') {
             debug("wap.push.pap.compiler", 0, "PAP COMPILER: wrong separator"
                   " in a phone number (- and . allowed)");
             return -2;
     } else {
         --pos;
         }
    }

    if (pos == 0) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER:a phone number must"
              " start with +");
        return -2;
    }

    if (pos > 0)
        --pos;

    pos = drop_character(address, pos);

    return pos;
}

parse_ipv4()

static long parse_ipv4 ( Octstr **  address, long  pos  )

static

Definition at line 1800 of file wap_push_pap_compiler.c.

References debug(), octstr_get_char(), and parse_ipv4_fragment().

Referenced by parse_client_specifier().

{
    long i;

    if ((pos = parse_ipv4_fragment(address, pos)) < 0) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: wrong separator in a"
              " ipv4 address");
        return -2;
    }

    i = 1;

    while (i <= 3 && octstr_get_char(*address, pos) != '=' && pos >= 0) {
        pos = parse_ipv4_fragment(address, pos);
        ++i;
    }

    if (pos == 0) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: missing separator at"
              " beginning of a client address (=)");
        return -2;
    }

    return pos;
}

parse_ipv4_fragment()

static long parse_ipv4_fragment ( Octstr **  address, long  pos  )

static

Definition at line 2014 of file wap_push_pap_compiler.c.

References debug(), handle_two_terminators(), and octstr_get_char().

Referenced by parse_ipv4().

{
    long i;
    unsigned char c;

    i = 0;
    c = '=';

    if (isdigit(c = octstr_get_char(*address, pos)) && pos >= 0) {
        --pos;
        ++i;
    } else {
        debug("wap.push.pap.compiler", 0, "non-digit found in ip address,"
              " address unacceptable");
        return -2;
    }
    
    while (i <= 3 && ((c = octstr_get_char(*address, pos)) != '.' &&  c != '=')
            && pos >= 0) {
        if (isdigit(c)) {
            --pos;
            ++i;
        } else {
        debug("wap.push.pap.compiler", 0, "parse_ipv4_fragment: non-digit"
                  " in ipv4 address, address unacceptable");
        return -2;
        }
    }

    pos = handle_two_terminators(address, pos, '.', '=', c, i, 3);

    return pos;
}

parse_ipv6()

static long parse_ipv6 ( Octstr **  address, long  pos  )

static

Definition at line 1826 of file wap_push_pap_compiler.c.

References debug(), octstr_get_char(), and parse_ipv6_fragment().

Referenced by parse_client_specifier().

{
    long i;

    if ((pos = parse_ipv6_fragment(address, pos)) < 0) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: wrong separator in a"
              " ipv6 address");
        return -2;
    }

    i = 1;

    while (i <= 7 && octstr_get_char(*address, pos) != '=' && pos >= 0) {
        pos = parse_ipv6_fragment(address, pos);
        ++i;
    }

    if (pos == 0) {
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: missing separator at"
              " beginning of a client address (=)");
        return -2;
    }

    return pos;
}

parse_ipv6_fragment()

static long parse_ipv6_fragment ( Octstr **  address, long  pos  )

static

Definition at line 2048 of file wap_push_pap_compiler.c.

References handle_two_terminators(), and octstr_get_char().

Referenced by parse_ipv6().

{
    long i;
    unsigned char c;

    i = 0;

    if (isxdigit(octstr_get_char(*address, pos)) && pos >= 0) {
        --pos;
        ++i;
    } else {
        return -2;
    }

    c = '=';

    while (i <= 4 && ((c = octstr_get_char(*address, pos)) != ':' && c != '=')
            && pos >= 0) {
        if (isxdigit(c)) {
        --pos;
            ++i;
        } else {
        return -2;
        }
    }

    pos = handle_two_terminators(address, pos, ':', '=', c, i, 4);

    return pos;
}

parse_network()

static Octstr * parse_network ( Octstr *  attr_value )

static

Definition at line 1376 of file wap_push_pap_compiler.c.

References NUM_NETWORK_TYPES, octstr_case_compare(), octstr_imm(), pap_network_types, and warning().

Referenced by parse_quality_of_service_value().

{
    size_t i;
    Octstr *ros;

    for (i = 0; i < NUM_NETWORK_TYPES; i++) {
         if (octstr_case_compare(attr_value, 
             ros = octstr_imm(pap_network_types[i])) == 0) {
         return ros;
         }
    }

    warning(0, "no such network");
    return NULL;
}

parse_node()

static int parse_node ( xmlNodePtr  node, WAPEvent **  e, long *  type_of_address, int *  is_any  )

static

Definition at line 744 of file wap_push_pap_compiler.c.

References parse_element(), and warning().

Referenced by parse_document().

{
    int ret;

    switch (node->type) {
    case XML_COMMENT_NODE:        /* ignore text, comments and pi nodes */
    case XML_PI_NODE:
    case XML_TEXT_NODE:
    break;

    case XML_ELEMENT_NODE:
        if ((ret = parse_element(node, e, type_of_address, is_any)) < 0) {
        return ret;
        }
    break;

    default:
        warning(0, "PAP COMPILER: parse_node: Unknown XML node in PAP source");
        return -2;
    }

    if (node->children != NULL)
        if ((ret = parse_node(node->children, e, type_of_address, 
                is_any)) < 0) {
            return ret;
    }

    if (node->next != NULL)
        if ((ret = parse_node(node->next, e, type_of_address, is_any)) < 0) {
            return ret;
        }
    
    return 0;
}

parse_pap_value()

static int parse_pap_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e  )

static

Definition at line 943 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_get_cstr, octstr_imm(), and wap_event_dump().

Referenced by parse_attr_value().

{
    if (*e != NULL)
        wap_event_dump(*e);

    if (octstr_compare(attr_name, octstr_imm("product-name")) == 0) {
        /* 
         * XXX This is a kludge. 
         * We can't add the product-name value to the WAPEvent, because
         * the wap_event_create() is created in the deeper layer, which
         * means as soon as we see <push-message> or <response-message>.
         * But we would have to decide which WAPEvent to create while 
         * being on the higher <pap> level. 
         * How's this to be solved?! -- Stipe
         */
        return 0;
    } 

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown pap"
          " element attribute `%s'", octstr_get_cstr(attr_name));
    return -2;
}  

parse_ppg_specifier()

static long parse_ppg_specifier ( Octstr **  address, long  pos  )

static

Definition at line 1550 of file wap_push_pap_compiler.c.

References drop_character(), octstr_delete(), octstr_get_char(), and parse_dom_fragment().

Referenced by parse_address().

{
    if (pos >= 0) {
        pos = parse_dom_fragment(address, pos);
    }

    while (octstr_get_char(*address, pos) != '@' && pos >= 0) {
        if (octstr_get_char(*address, pos) == '.') {
        octstr_delete(*address, pos, 1);
            --pos;
        } else {
        return -2;
        }

        pos = parse_dom_fragment(address, pos);
    } 

    pos = drop_character(address, pos);

    if (octstr_get_char(*address, pos) == '/' && pos >= 0) {
        octstr_delete(*address, pos, 1);
        if (pos > 0)
            --pos;
    }

    if (pos < 0) {
       return -2;
    }

    return pos;
}

parse_priority()

static int parse_priority ( Octstr *  attr_value )

static

Definition at line 1413 of file wap_push_pap_compiler.c.

References octstr_case_compare(), octstr_imm(), PAP_HIGH, PAP_LOW, PAP_MEDIUM, and warning().

Referenced by set_attribute_value().

{
    long attr_as_number;

    attr_as_number = -2;
    if (octstr_case_compare(attr_value, octstr_imm("high")) == 0)
        attr_as_number = PAP_HIGH;
    else if (octstr_case_compare(attr_value, octstr_imm("medium")) == 0)
        attr_as_number = PAP_MEDIUM;
    else if (octstr_case_compare(attr_value, octstr_imm("low")) == 0)
        attr_as_number = PAP_LOW;
    else
        warning(0, "illegal priority");

    return attr_as_number;
}

parse_progress_note_value()

static int parse_progress_note_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e  )

static

Definition at line 1129 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_duplicate, octstr_imm(), parse_date(), parse_state(), and return_flag().

Referenced by parse_attr_value().

{
    Octstr *ros;
    int ret;

    ret = -2;
    ros = octstr_imm("erroneous");

    if (octstr_compare(attr_name, octstr_imm("stage")) == 0) {
        (**e).u.Progress_Note.stage = 
             (ret = parse_state(attr_value)) ? ret : 0;
        return ret;
    } else if (octstr_compare(attr_name, octstr_imm("note")) == 0) {
    (**e).u.Progress_Note.note = octstr_duplicate(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, octstr_imm("time")) == 0) {
    (**e).u.Progress_Note.time = (ros = parse_date(attr_value)) ?
             octstr_duplicate(attr_value) : octstr_imm("erroneous");
    return return_flag(ros);
    }

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown progress note"
          " element attribute");
    return -2;
}

parse_push_message_value()

static int parse_push_message_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e  )

static

Definition at line 972 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_destroy(), octstr_duplicate, octstr_imm(), parse_date(), and return_flag().

Referenced by parse_attr_value().

{
    Octstr *ros;

    ros = octstr_imm("erroneous");
    if (octstr_compare(attr_name, octstr_imm("push-id")) == 0) {
        octstr_destroy((**e).u.Push_Message.pi_push_id);
    (**e).u.Push_Message.pi_push_id = octstr_duplicate(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, 
             octstr_imm("deliver-before-timestamp")) == 0) {
    (**e).u.Push_Message.deliver_before_timestamp = 
             (ros = parse_date(attr_value)) ? 
             octstr_duplicate(attr_value) : octstr_imm("erroneous");  
        return return_flag(ros);
    } else if (octstr_compare(attr_name, 
             octstr_imm("deliver-after-timestamp")) == 0) {
    (**e).u.Push_Message.deliver_after_timestamp = 
             (ros = parse_date(attr_value)) ? 
             octstr_duplicate(attr_value) : octstr_imm("erroneous");
        return return_flag(ros);
    } else if (octstr_compare(attr_name, 
             octstr_imm("source-reference")) == 0) {
    (**e).u.Push_Message.source_reference = octstr_duplicate(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, 
             octstr_imm("ppg-notify-requested-to")) == 0) {
    (**e).u.Push_Message.ppg_notify_requested_to = 
             octstr_duplicate(attr_value);
        return 0;
    }

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown push message"
          " element attribute");
    return -2;
}  

parse_push_response_value()

static int parse_push_response_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e  )

static

Definition at line 1101 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_destroy(), octstr_duplicate, octstr_imm(), parse_date(), and return_flag().

Referenced by parse_attr_value().

{
    Octstr *ros;

    ros = octstr_imm("erroneous");

    if (octstr_compare(attr_name, octstr_imm("push-id")) == 0) {
        octstr_destroy((**e).u.Push_Response.pi_push_id);
    (**e).u.Push_Response.pi_push_id = octstr_duplicate(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, octstr_imm("sender-address")) == 0) {
    (**e).u.Push_Response.sender_address = octstr_duplicate(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, octstr_imm("reply-time")) == 0) {
    (**e).u.Push_Response.reply_time = (ros = parse_date(attr_value)) ?
             octstr_duplicate(attr_value) : NULL;
        return return_flag(ros);
    } else if (octstr_compare(attr_name, octstr_imm("sender-name")) == 0) {
    (**e).u.Push_Response.sender_name = octstr_duplicate(attr_value);
        return 0;
    }

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown push response"
          " element attribute");
    return -2;
}

parse_qualifier_keyword()

static long parse_qualifier_keyword ( Octstr **  address, long  pos  )

static

Definition at line 1998 of file wap_push_pap_compiler.c.

References drop_character(), and octstr_get_char().

Referenced by parse_ext_qualifiers().

{
    unsigned char c;  

    while ((c = octstr_get_char(*address, pos)) != '/') {
        if (isalnum(c) || c == '-') {
        pos = drop_character(address, pos);
        } else
        return -2;
    }

    pos = drop_character(address, pos);       

    return pos;
}

parse_qualifier_value()

static long parse_qualifier_value ( Octstr **  address, long  pos  )

static

Definition at line 1981 of file wap_push_pap_compiler.c.

References drop_character(), and octstr_get_char().

Referenced by parse_ext_qualifiers().

{
    unsigned char c;

    while ((c = octstr_get_char(*address, pos)) != '=' && pos >= 0) {
        if (c < 0x20 || (c > 0x2e && c < 0x30) || (c > 0x3c && c < 0x3e) ||
            c > 0x7e)
            return -2;

        pos = drop_character(address, pos);
    }

    pos = drop_character(address, pos);
  
    return pos;
}

parse_quality_of_service_value()

static int parse_quality_of_service_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e, int *  is_any  )

static

Definition at line 1038 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_duplicate, octstr_imm(), parse_bearer(), parse_network(), return_flag(), and set_any_value().

Referenced by parse_attr_value().

{
    Octstr *ros;

    ros = octstr_imm("erroneous");
    if (octstr_compare(attr_name, octstr_imm("network")) == 0) {
    (**e).u.Push_Message.network = (ros = parse_network(attr_value)) ? 
            octstr_duplicate(attr_value) : octstr_imm("erroneous");
        set_any_value(is_any, attr_name, attr_value);
        return return_flag(ros);
    }

    if (octstr_compare(attr_name, octstr_imm("bearer")) == 0) {
    (**e).u.Push_Message.bearer = (ros = parse_bearer(attr_value)) ? 
            octstr_duplicate(attr_value) : octstr_imm("erroneous");
        set_any_value(is_any, attr_name, attr_value);
        return return_flag(ros);
    }

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown quality of"
          " service attribute");
    return -2;
}

parse_requirement()

static int parse_requirement ( Octstr *  attr_value )

static

Definition at line 1395 of file wap_push_pap_compiler.c.

References octstr_case_compare(), octstr_imm(), PAP_FALSE, PAP_TRUE, and warning().

Referenced by set_attribute_value().

{
    long attr_as_number;

    attr_as_number = -2;
    if (octstr_case_compare(attr_value, octstr_imm("false")) == 0)
        attr_as_number = PAP_FALSE;
    else if (octstr_case_compare(attr_value, octstr_imm("true")) == 0)
        attr_as_number = PAP_TRUE;
    else
        warning(0, "in a requirement, value not a truth value");

    return attr_as_number;
}

parse_response_result_value()

static int parse_response_result_value ( Octstr *  attr_name, Octstr *  attr_value, WAPEvent **  e  )

static

Definition at line 1177 of file wap_push_pap_compiler.c.

References debug(), octstr_compare(), octstr_duplicate, octstr_imm(), and parse_code().

Referenced by parse_attr_value().

{
    if (octstr_compare(attr_name, octstr_imm("code")) == 0) {
    (**e).u.Push_Response.code = parse_code(attr_value);
        return 0;
    } else if (octstr_compare(attr_name, octstr_imm("desc")) == 0) {
    (**e).u.Push_Response.desc = octstr_duplicate(attr_value);
        return 0;
    }

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: unknown response result"
          " attribute");
    return -2;
} 

parse_state()

static int parse_state ( Octstr *  attr_value )

static

Definition at line 1456 of file wap_push_pap_compiler.c.

References octstr_case_compare(), octstr_imm(), PAP_ABORTED, PAP_CANCELLED, PAP_DELIVERED, PAP_EXPIRED, PAP_PENDING, PAP_TIMEOUT, PAP_UNDELIVERABLE, and warning().

Referenced by parse_progress_note_value().

{
    long attr_as_number;

    attr_as_number = -2;
    if (octstr_case_compare(attr_value, octstr_imm("undeliverable")) == 0)
        attr_as_number = PAP_UNDELIVERABLE; 
    else if (octstr_case_compare(attr_value, octstr_imm("pending")) == 0)
        attr_as_number = PAP_PENDING; 
    else if (octstr_case_compare(attr_value, octstr_imm("expired")) == 0)
        attr_as_number = PAP_EXPIRED;
    else if (octstr_case_compare(attr_value, octstr_imm("delivered")) == 0)
        attr_as_number = PAP_DELIVERED;
    else if (octstr_case_compare(attr_value, octstr_imm("aborted")) == 0)
        attr_as_number = PAP_ABORTED;
    else if (octstr_case_compare(attr_value, octstr_imm("timeout")) == 0)
        attr_as_number = PAP_TIMEOUT;
    else if (octstr_case_compare(attr_value, octstr_imm("cancelled")) == 0)
        attr_as_number = PAP_CANCELLED;
    else 
         warning(0, "illegal ppg state");

    return attr_as_number;
}

parse_type()

static long parse_type ( Octstr **  address, Octstr **  type_value, long  pos  )

static

Definition at line 1729 of file wap_push_pap_compiler.c.

References drop_character(), octstr_get_char(), and prepend_char().

Referenced by parse_client_specifier().

{
    unsigned char c;

    while ((c = octstr_get_char(*address, pos)) != '=' && pos >= 0) {   
        *type_value = prepend_char(*type_value, c);
        pos = drop_character(address, pos);
    } 

    if (pos < 0)
        return -2;

    return pos;
}

parse_wappush_client_address()

static long parse_wappush_client_address ( Octstr **  address, long  pos, long *  type_of_address  )

static

Definition at line 1534 of file wap_push_pap_compiler.c.

References parse_client_specifier(), and parse_constant().

Referenced by parse_address().

{
    if ((pos = parse_client_specifier(address, pos, type_of_address)) < 0) {
        return pos;
    }

    pos = parse_constant("WAPPUSH", address, pos);
    
    return pos;
}

prepend_char()

static Octstr * prepend_char ( Octstr *  address, unsigned char  c  )

static

Definition at line 1924 of file wap_push_pap_compiler.c.

References octstr_destroy(), octstr_format(), and octstr_insert().

Referenced by accept_escaped(), and parse_type().

{
    Octstr *tmp;

    tmp = octstr_format("%c", c);
    octstr_insert(os, tmp, 0);
    octstr_destroy(tmp);
    return os;
}

qualifiers()

static int qualifiers ( Octstr *  address, long  pos, Octstr *  type  )

static

Definition at line 1942 of file wap_push_pap_compiler.c.

References octstr_case_compare(), octstr_get_char(), octstr_imm(), and type.

Referenced by parse_ext_qualifiers().

{
    unsigned char term,
         c;
    long i;

    i = pos;
    c = 'E';

    if (octstr_case_compare(type, octstr_imm("PLMN")) == 0)
        term = '+';
    else if (octstr_case_compare(type, octstr_imm("IPv4")) == 0)
        term = '.';
    else if (octstr_case_compare(type, octstr_imm("IPv6")) == 0)
        term = ':';
    else
        term = 'N';

    if (term != 'N') {
        while ((c = octstr_get_char(address, i)) != term && i != 0) {
            if (c == '/')
                return 1;
            --i;
        }
        if (i == 0)
        return 0;
    }

    if (term == 'N') {
        while (i != 0) {
            if (c == '/')
                return 1;
            --i;
        }
    } 

    return 0;
}

rest_unescaped()

static long rest_unescaped ( Octstr **  address, long  pos  )

static

Definition at line 2102 of file wap_push_pap_compiler.c.

References accept_safe().

Referenced by parse_escaped_value().

{
    long i,
         ret;

    for (i = 2; i > 0; i--) {
         if ((ret = accept_safe(address, pos)) == -2)
         return -2;
         else if (ret == -1)
         return pos;
    }

    return pos;
}

return_flag()

static int return_flag ( Octstr *  ros )

static

Definition at line 1220 of file wap_push_pap_compiler.c.

Referenced by parse_progress_note_value(), parse_push_message_value(), parse_push_response_value(), and parse_quality_of_service_value().

{
    if (ros) {
        return 0;
    } else {
        return -2;
    }
}

set_any_value()

static void set_any_value ( int *  is_any, Octstr *  attr_name, Octstr *  attr_value  )

static

Definition at line 1064 of file wap_push_pap_compiler.c.

References BEARER_ANY, debug(), EITHER, ERROR_ANY, NEITHER, NETWORK_ANY, octstr_case_compare(), octstr_compare(), and octstr_imm().

Referenced by parse_quality_of_service_value().

{
    switch (*is_any) {
    case NEITHER:
        if (octstr_compare(attr_name, octstr_imm("bearer")) == 0 &&
                octstr_case_compare(attr_value, octstr_imm("any")) == 0)
        *is_any = BEARER_ANY;
        else if (octstr_compare(attr_name, octstr_imm("network")) == 0 &&
                octstr_case_compare(attr_value, octstr_imm("any")) == 0)
        *is_any = NETWORK_ANY;
    return;

    case BEARER_ANY:
        if (octstr_compare(attr_name, octstr_imm("network")) == 0 &&
                octstr_case_compare(attr_value, octstr_imm("any")) == 0)
        *is_any = EITHER;
    return;

    case NETWORK_ANY:
        if (octstr_compare(attr_name, octstr_imm("bearer")) == 0 &&
                octstr_case_compare(attr_value, octstr_imm("any")) == 0)
        *is_any = EITHER;
    return;

    case EITHER:
         debug("wap.push.pap.compiler", 0, "PAP COMPILER: problems with"
               " setting any");
         *is_any = ERROR_ANY;
    return;

    default:
        debug("wap.push.pap.compiler", 0, "PAP COMPILER: wrong any value");
        *is_any = ERROR_ANY;
    return;
    }
}

set_anys()

static int set_anys ( WAPEvent **  e, long  type_of_address, int  is_any  )

static

Definition at line 457 of file wap_push_pap_compiler.c.

References BEARER_ANY, EITHER, NEITHER, NETWORK_ANY, set_bearer_defaults(), set_defaults(), and set_network_defaults().

Referenced by parse_document().

{
    switch (is_any) {
    case NEITHER:
    return 1;

    case BEARER_ANY:
        set_bearer_defaults(e, type_of_address);
    return 1;

    case NETWORK_ANY:
        set_network_defaults(e, type_of_address);
    return 1;

    case EITHER:
        set_defaults(e, type_of_address);
    return 1;

    default:
    return 0;
    }
}

set_attribute_value()

static int set_attribute_value ( Octstr *  element_name, Octstr *  attr_value, Octstr *  attr_name, WAPEvent **  e  )

static

Definition at line 1283 of file wap_push_pap_compiler.c.

References octstr_compare(), octstr_imm(), parse_delivery_method(), parse_priority(), parse_requirement(), and wap_event_create.

Referenced by parse_attribute().

{
    int ret;

    ret = -2;
    if (octstr_compare(element_name, octstr_imm("push-message")) == 0) {
        if (*e == NULL)
            *e = wap_event_create(Push_Message);

        if (octstr_compare(attr_name, 
                          octstr_imm("progress-notes-requested")) == 0)
            (**e).u.Push_Message.progress_notes_requested = 
                 (ret = parse_requirement(attr_value)) >= 0 ? ret : 0;

    } else if (octstr_compare(element_name, 
                 octstr_imm("quality-of-service")) == 0) {
        if (*e == NULL)
            *e = wap_event_create(Push_Message);

        if (octstr_compare(attr_name, octstr_imm("priority")) == 0)
            (**e).u.Push_Message.priority = 
                 (ret = parse_priority(attr_value)) >= 0 ? ret : 0;
        else if (octstr_compare(attr_name, octstr_imm("delivery-method")) == 0)
            (**e).u.Push_Message.delivery_method = 
                 (ret = parse_delivery_method(attr_value)) >= 0 ? ret : 0;
        else if (octstr_compare(attr_name, 
                               octstr_imm("network-required")) == 0)
            (**e).u.Push_Message.network_required = 
                 (ret = parse_requirement(attr_value)) >= 0 ? ret : 0;
        else if (octstr_compare(attr_name, octstr_imm("bearer-required")) == 0)
            (**e).u.Push_Message.bearer_required = 
                 (ret = parse_requirement(attr_value)) >= 0 ? ret : 0;
    }

    return ret;
}

set_bearer_defaults()

static void set_bearer_defaults ( WAPEvent **  e, long  type_of_address  )

static

Definition at line 490 of file wap_push_pap_compiler.c.

References ADDR_IPV4, ADDR_IPV6, ADDR_PLMN, ADDR_USER, ADDR_WINA, gw_assert(), octstr_destroy(), octstr_format(), and PAP_TRUE.

Referenced by set_anys(), and set_defaults().

{
    gw_assert(type_of_address == ADDR_USER || type_of_address == ADDR_PLMN ||
              type_of_address == ADDR_IPV4 || type_of_address == ADDR_IPV6 ||
              type_of_address == ADDR_WINA);

    if ((*e)->type != Push_Message)
        return;

    (*e)->u.Push_Message.bearer_required = PAP_TRUE;
    octstr_destroy((*e)->u.Push_Message.bearer);

    switch (type_of_address) {
    case ADDR_PLMN:
    (*e)->u.Push_Message.bearer = octstr_format("%s", "SMS"); 
    break;   
 
    case ADDR_IPV4:
    (*e)->u.Push_Message.bearer = octstr_format("%s", "CSD");     
    break;

    case ADDR_IPV6:
    break;
    }
}

set_defaults()

static void set_defaults ( WAPEvent **  e, long  type_of_address  )

static

Definition at line 484 of file wap_push_pap_compiler.c.

References set_bearer_defaults(), and set_network_defaults().

Referenced by parse_document(), and set_anys().

{
    set_bearer_defaults(e, type_of_address);
    set_network_defaults(e, type_of_address);   
}

set_network_defaults()

static void set_network_defaults ( WAPEvent **  e, long  type_of_address  )

static

Definition at line 516 of file wap_push_pap_compiler.c.

References ADDR_IPV4, ADDR_IPV6, ADDR_PLMN, ADDR_USER, ADDR_WINA, gw_assert(), octstr_destroy(), octstr_format(), and PAP_TRUE.

Referenced by set_anys(), and set_defaults().

{
    gw_assert(type_of_address == ADDR_USER || type_of_address == ADDR_PLMN ||
              type_of_address == ADDR_IPV4 || type_of_address == ADDR_IPV6 ||
              type_of_address == ADDR_WINA);

    if ((*e)->type != Push_Message)
        return;

    (*e)->u.Push_Message.network_required = PAP_TRUE;
    octstr_destroy((*e)->u.Push_Message.network);

    switch (type_of_address) {
    case ADDR_PLMN:
    (*e)->u.Push_Message.network = octstr_format("%s", "GSM");
    break;   
 
    case ADDR_IPV4:
        (*e)->u.Push_Message.network = octstr_format("%s", "GSM");   
    break;

    case ADDR_IPV6: 
    break;
    }
}

uses_gsm_msisdn_address()

static int uses_gsm_msisdn_address ( long  bearer_required, Octstr *  bearer  )

static

Definition at line 661 of file wap_push_pap_compiler.c.

References octstr_case_compare(), and octstr_imm().

Referenced by event_semantically_valid().

{
    if (!bearer_required)
        return -1;
    
    if (!bearer)
        return 1;
    
    return (octstr_case_compare(bearer, octstr_imm("SMS")) == 0 ||
            octstr_case_compare(bearer, octstr_imm("GHOST/R_DATA")) == 0 ||
            octstr_case_compare(bearer, octstr_imm("Any")) == 0);
}

uses_ipv4_address()

static int uses_ipv4_address ( long  bearer_required, Octstr *  bearer  )

static

Definition at line 680 of file wap_push_pap_compiler.c.

References ip4_bearers, NUMBER_OF_IP4_BEARERS, octstr_case_compare(), and octstr_imm().

Referenced by event_semantically_valid().

{
    long i;

    if (!bearer_required) {
        return -1;
    }

    if (!bearer)
        return -1;
    
    i = 0;
    while (i < NUMBER_OF_IP4_BEARERS) {
        if (octstr_case_compare(bearer, octstr_imm(ip4_bearers[i])) == 0) {
        return 1;
        }
        ++i;
    }

    return 0;
}

uses_ipv6_address()

static int uses_ipv6_address ( long  bearer_required, Octstr *  bearer  )

static

Definition at line 709 of file wap_push_pap_compiler.c.

References ip6_bearers, NUMBER_OF_IP6_BEARERS, octstr_case_compare(), and octstr_imm().

Referenced by event_semantically_valid().

{
    long i;

    if (!bearer_required)
        return -1;

    if (!bearer)
        return -1;

    i = 0;
    while (i < NUMBER_OF_IP6_BEARERS) {
        if (octstr_case_compare(bearer, octstr_imm(ip6_bearers[i])) == 0) {
        return 1;
        }
        ++i;
    }

    return 0;
}

wap_event_accept_or_create()

static void wap_event_accept_or_create ( Octstr *  element_name, WAPEvent **  e  )

static

Definition at line 1200 of file wap_push_pap_compiler.c.

References octstr_compare(), octstr_format(), octstr_imm(), and wap_event_create.

Referenced by parse_attr_value().

{
    if (octstr_compare(element_name, octstr_imm("push-message")) == 0 
            && *e == NULL) {         
        *e = wap_event_create(Push_Message); 
        (**e).u.Push_Message.pi_push_id = octstr_format("%s", "erroneous");
        (**e).u.Push_Message.address_value = octstr_format("%s", "erroneous");
    } else if (octstr_compare(element_name, octstr_imm("push-response")) == 0 
            && *e == NULL) {
        *e = wap_event_create(Push_Response);
        (**e).u.Push_Response.pi_push_id = octstr_format("%s", "erroneous");
    } else if (octstr_compare(element_name, octstr_imm("progress-note")) == 0 
            && *e == NULL) {
        *e = wap_event_create(Progress_Note);
    } else if (octstr_compare(element_name, 
            octstr_imm("badmessage-response")) == 0 && *e == NULL) {
        *e = wap_event_create(Bad_Message_Response);
    } 
}

wina_bearer_identifier()

static int wina_bearer_identifier ( Octstr *  type_value )

static

Definition at line 1874 of file wap_push_pap_compiler.c.

References bearer_address, bearer_address_size, debug(), octstr_case_compare(), and octstr_imm().

Referenced by parse_client_specifier().

{
    size_t i;

    i = 0;
    while (i < bearer_address_size) {
        if (octstr_case_compare(type_value, 
                octstr_imm(bearer_address[i])) == 0)
        return 1;
        ++i;
    }

    debug("wap.push.pap.compiler", 0, "PAP COMPILER: a bearer not registered"
          " by wina");
    return 0;
}

Variable Documentation

bearer_address

char* bearer_address[]

static

Initial value:

= {
    "GSM_MSISDN",
    "ANSI_136_MSISDN",
    "IS_637_MSISDN",
    "iDEN_MSISDN",
    "FLEX_MSISDN",
    "PHS_MSISDN",
    "GSM_Service_Code",
    "TETRA_ITSI",
    "TETRA_MSISDN",
    "ReFLEX_MSIDDN",
    "MAN",
}

Definition at line 1857 of file wap_push_pap_compiler.c.

Referenced by wina_bearer_identifier().

bearer_address_size

size_t bearer_address_size

static

Initial value:

= sizeof(bearer_address) / 
                                    sizeof(bearer_address[0])

Definition at line 1871 of file wap_push_pap_compiler.c.

Referenced by wina_bearer_identifier().

ip4_bearers

char* ip4_bearers[]

static

Initial value:

= {
    "Any",
    "CSD",
    "Packet Data",
    "GPRS",
    "USSD"
}

Definition at line 644 of file wap_push_pap_compiler.c.

Referenced by uses_ipv4_address().

ip6_bearers

char* ip6_bearers[]

static

Initial value:

= {
    "Any"
}

Definition at line 638 of file wap_push_pap_compiler.c.

Referenced by uses_ipv6_address().

pap_attributes

pap_attributes_t pap_attributes[]

static

Definition at line 137 of file wap_push_pap_compiler.c.

Referenced by parse_attribute().

pap_bearer_types

char* pap_bearer_types[]

static

Initial value:

= {
    "Any",
    "USSD",
    "SMS",
    "GUTS/R-Data",
    "CSD",
    "Packet Data",
    "GPRS",
    "CDPD",
    "FLEX",
    "SDS",
    "ReFLEX",
    "MPAK",
    "GHOST/R_DATA"
}

Definition at line 198 of file wap_push_pap_compiler.c.

Referenced by parse_bearer().

pap_codes

int pap_codes[]

static

Initial value:

= {
    PAP_ACCEPTED_FOR_PROCESSING,
    PAP_BAD_REQUEST,
    PAP_FORBIDDEN,
    PAP_ADDRESS_ERROR,
    PAP_CAPABILITIES_MISMATCH,
    PAP_DUPLICATE_PUSH_ID,
    PAP_TRANSFORMATION_FAILURE,
    PAP_REQUIRED_BEARER_NOT_AVAILABLE,
    PAP_ABORT_USERPND
}

Definition at line 181 of file wap_push_pap_compiler.c.

Referenced by parse_code().

pap_elements

char* pap_elements[]

static

Initial value:

= {
    "pap",
    "push-message",
    "address",
    "quality-of-service",
    "push-response",
    "progress-note",
    "response-result",
    "cancel-message",
    "cancel-result",
    "cancel-response",
    "resultnotification-message",
    "resultnotification-response",
    "statusquery-message",
    "statusquery-response",
    "statusquery-result",
    "ccq-message",
    "ccq-response",
    "badmessage-response"
}

Definition at line 104 of file wap_push_pap_compiler.c.

Referenced by parse_element().

pap_network_types

char* pap_network_types[]

static

Initial value:

= {
    "Any",
    "GSM",
    "ANSI-136",
    "IS-95 CDMA",
    "AMPS",
    "PDC",
    "IDEN",
    "Paging network",
    "PHS",
    "TETRA",
    "Mobitex",
}

Definition at line 220 of file wap_push_pap_compiler.c.

Referenced by parse_network().