smasi_pdu.c File Reference

#include <string.h>
#include "smasi_pdu.h"
#include "smasi_pdu.def"

Go to the source code of this file.

Macros
#define	NONTERMINATED(name)   p->name = NULL;
#define	COMATERMINATED(name)   p->name = NULL;
#define	PDU(name, id, fields)
#define	NONTERMINATED(name)   octstr_destroy(p->name);
#define	COMATERMINATED(name)   octstr_destroy(p->name);
#define	PDU(name, id, fields)   case id: { struct name *p = &pdu->u.name; fields } break;
#define	NONTERMINATED(name)   p = *(&p);
#define	COMATERMINATED(name)   p = *(&p);
#define	PDU(name, id, fields)   case id: { struct name *p = &pdu->u.name; fields } break;
#define	NONTERMINATED(name)   p = *(&p);
#define	COMATERMINATED(name)
#define	PDU(name, id, fields)   case id: { struct name *p = &pdu->u.name; fields } break;
#define	NONTERMINATED(name)   p = *(&p);
#define	COMATERMINATED(name)   p = *(&p);
#define	PDU(name, id, fields)   else if (strcmp(type_name, #name) == 0) type = id;
#define	NONTERMINATED(name)   p = *(&p);
#define	COMATERMINATED(name)
#define	PDU(name, id, fields)
#define	NONTERMINATED(name)   p = *(&p);
#define	COMATERMINATED(name)   octstr_dump_short(p->name, 2, #name);
#define	PDU(name, id, fields)   case id: { struct name *p = &pdu->u.name; fields } break;

Functions
static Octstr *	decode_type (Octstr *os)
static Octstr *	copy_until_coma (Octstr *os, long *pos)
static Octstr *	copy_until_assign (Octstr *os, long *pos)
static void	skip_until_after_colon (Octstr *os, long *pos)
SMASI_PDU *	smasi_pdu_create (unsigned long type)
void	smasi_pdu_destroy (SMASI_PDU *pdu)
Octstr *	smasi_pdu_pack (SMASI_PDU *pdu)
SMASI_PDU *	smasi_pdu_unpack (Octstr *data_without_len)
void	smasi_pdu_dump (SMASI_PDU *pdu)
Octstr *	smasi_pdu_read (Connection *conn)

Macro Definition Documentation

COMATERMINATED [1/7]

#define COMATERMINATED

(

name

)

p->name = NULL;

COMATERMINATED [2/7]

#define COMATERMINATED

(

name

)

octstr_destroy(p->name);

COMATERMINATED [3/7]

#define COMATERMINATED

(

name

)

p = *(&p);

COMATERMINATED [4/7]

#define COMATERMINATED

(

name

)

Value:

if (p->name != NULL) { octstr_append_cstr(os, #name); \
    octstr_append_char(os, '='); \
    octstr_append(os, p->name); \
    octstr_append_char(os, ','); }

COMATERMINATED [5/7]

#define COMATERMINATED

(

name

)

p = *(&p);

COMATERMINATED [6/7]

#define COMATERMINATED

(

name

)

Value:

if (octstr_str_compare(field_name, #name) == 0 && field_value != NULL) \
                    p->name = octstr_duplicate(field_value);

COMATERMINATED [7/7]

#define COMATERMINATED

(

name

)

octstr_dump_short(p->name, 2, #name);

NONTERMINATED [1/7]

#define NONTERMINATED

(

name

)

p->name = NULL;

NONTERMINATED [2/7]

#define NONTERMINATED

(

name

)

octstr_destroy(p->name);

NONTERMINATED [3/7]

#define NONTERMINATED

(

name

)

p = *(&p);

NONTERMINATED [4/7]

#define NONTERMINATED

(

name

)

p = *(&p);

NONTERMINATED [5/7]

#define NONTERMINATED

(

name

)

p = *(&p);

NONTERMINATED [6/7]

#define NONTERMINATED

(

name

)

p = *(&p);

NONTERMINATED [7/7]

#define NONTERMINATED

(

name

)

p = *(&p);

PDU [1/7]

#define PDU	(		name,
			id,
			fields
	)

Value:

case id: { \
        struct name *p = &pdu->u.name; \
        pdu->type_name = #name; \
        pdu->needs_hyphen = (id < SMASI_HYPHEN_ID ? 1 : 0); \
        fields \
    } break;

PDU [2/7]

#define PDU	(		name,
			id,
			fields
	)		case id: { struct name *p = &pdu->u.name; fields } break;

PDU [3/7]

#define PDU	(		name,
			id,
			fields
	)		case id: { struct name *p = &pdu->u.name; fields } break;

PDU [4/7]

#define PDU	(		name,
			id,
			fields
	)		case id: { struct name *p = &pdu->u.name; fields } break;

PDU [5/7]

#define PDU	(		name,
			id,
			fields
	)		else if (strcmp(type_name, #name) == 0) type = id;

PDU [6/7]

#define PDU	(		name,
			id,
			fields
	)

Value:

case id: { \
            Octstr * field_name = NULL; \
            Octstr * field_value = NULL; \
            struct name *p = &pdu->u.name; \
            while (pos < octstr_len(data_without_len)) { \
                field_name = copy_until_assign(data_without_len, &pos); \
                if (field_name == NULL) break; \
                field_value = copy_until_coma(data_without_len, &pos); \
                if (field_value == NULL) continue; \
                fields \
                octstr_destroy(field_name); \
                octstr_destroy(field_value); \
            } \
        } break;

PDU [7/7]

#define PDU	(		name,
			id,
			fields
	)		case id: { struct name *p = &pdu->u.name; fields } break;

Function Documentation

copy_until_assign()

static Octstr* copy_until_assign ( Octstr *  os, long *  pos  )

static

Definition at line 104 of file smasi_pdu.c.

References octstr_copy, octstr_get_cstr, octstr_len(), octstr_search_char(), and warning().

{
    long nul;
    Octstr *data;

    nul = octstr_search_char(os, '=', *pos);
    if (nul == -1 && (octstr_len(os) - *pos) > 1) {
        warning(0, "SMASI: Garbage at end of parameter list: %s", octstr_get_cstr(os));
        *pos = octstr_len(os);
        return NULL;
    }
    data = octstr_copy(os, *pos, nul - *pos);
    *pos = nul + 1;
    return data;
}

copy_until_coma()

static Octstr* copy_until_coma ( Octstr *  os, long *  pos  )

static

Definition at line 88 of file smasi_pdu.c.

References octstr_copy, octstr_get_cstr, octstr_search_char(), and warning().

{
    long nul;
    Octstr *data;

    nul = octstr_search_char(os, ',', *pos);
    if (nul == -1) {
        warning(0, "SMASI: Parameter without value or value not properly terminated: %s", octstr_get_cstr(os));
        return NULL;
    }
    data = octstr_copy(os, *pos, nul - *pos);
    *pos = nul + 1;
    return data;
}

decode_type()

static Octstr* decode_type ( Octstr *  os )

static

Definition at line 68 of file smasi_pdu.c.

References octstr_copy, and octstr_search_char().

Referenced by smasi_pdu_unpack().

{
    long p1, p2;
    Octstr *temp;

    if ((p2 = octstr_search_char(os, ':', 0)) == -1)
        return NULL;

    if ((p1 = octstr_search_char(os, '!', 0)) != -1 && p1 < p2) {
        p1++;
    } else {
        p1 = 0;
    }

    temp = octstr_copy(os, p1, p2 - p1);

    return temp;
}

skip_until_after_colon()

static void skip_until_after_colon ( Octstr *  os, long *  pos  )

static

Definition at line 121 of file smasi_pdu.c.

References colon, octstr_get_cstr, octstr_search_char(), and warning().

Referenced by smasi_pdu_unpack().

{
    long colon = octstr_search_char(os, ':', *pos);

    if (colon == -1) warning(0, "SMASI: No colon after SMASI PDU name: %s", octstr_get_cstr(os));

    *pos = colon + 1;

}

smasi_pdu_create()

SMASI_PDU* smasi_pdu_create

(

unsigned long

type

)

Definition at line 132 of file smasi_pdu.c.

References SMASI_PDU::type, type, and warning().

Referenced by handle_pdu(), msg_to_pdu(), open_connection(), send_enquire_link(), send_logoff(), and smasi_pdu_unpack().

{
    SMASI_PDU *pdu;

    pdu = gw_malloc(sizeof(*pdu));
    pdu->type = type;

    switch (type) {
    #define NONTERMINATED(name) p->name = NULL;
    #define COMATERMINATED(name) p->name = NULL;
    #define PDU(name, id, fields) \
        case id: { \
        struct name *p = &pdu->u.name; \
        pdu->type_name = #name; \
        pdu->needs_hyphen = (id < SMASI_HYPHEN_ID ? 1 : 0); \
        fields \
    } break;
    #include "smasi_pdu.def"
    default:
        warning(0, "Unknown SMASI_PDU type, internal error.");
        gw_free(pdu);
    return NULL;
    }

    return pdu;
}

smasi_pdu_destroy()

void smasi_pdu_destroy

(

SMASI_PDU *

pdu

)

Definition at line 160 of file smasi_pdu.c.

References error(), and SMASI_PDU::type.

Referenced by handle_pdu(), open_connection(), send_enquire_link(), send_logoff(), send_messages(), and smasi_thread().

{
    if (pdu == NULL)
        return;

    switch (pdu->type) {
    #define NONTERMINATED(name) octstr_destroy(p->name);
    #define COMATERMINATED(name) octstr_destroy(p->name);
    #define PDU(name, id, fields) \
        case id: { struct name *p = &pdu->u.name; fields } break;
    #include "smasi_pdu.def"
    default:
        error(0, "Unknown SMASI_PDU type, internal error while destroying.");
    }
    gw_free(pdu);
}

smasi_pdu_dump()

void smasi_pdu_dump

(

SMASI_PDU *

pdu

)

Definition at line 280 of file smasi_pdu.c.

References debug(), and warning().

Referenced by dump_pdu().

{
    debug("sms.smasi", 0, "SMASI PDU %p dump:", (void *) pdu);
    debug("sms.smasi", 0, "  type_name: %s", pdu->type_name);
    switch (pdu->type) {
    #define NONTERMINATED(name) p = *(&p);
    #define COMATERMINATED(name) \
    octstr_dump_short(p->name, 2, #name);
    #define PDU(name, id, fields) \
        case id: { struct name *p = &pdu->u.name; fields } break;
    #include "smasi_pdu.def"
    default:
        warning(0, "Unknown SMASI_PDU type, internal error.");
    break;
    }
    debug("sms.smasi", 0, "SMASI PDU dump ends.");
}

smasi_pdu_pack()

Octstr* smasi_pdu_pack

(

SMASI_PDU *

pdu

)

Definition at line 178 of file smasi_pdu.c.

References error(), SMASI_PDU::needs_hyphen, octstr_append_char(), octstr_append_cstr(), octstr_create, octstr_destroy(), octstr_insert(), SMASI_PDU::type, and SMASI_PDU::type_name.

Referenced by send_enquire_link(), send_logoff(), and send_pdu().

{
    Octstr *os;
    Octstr *temp;

    os = octstr_create("");

    /*
     * Fix lengths of octet string fields.
     */
    switch (pdu->type) {
    #define NONTERMINATED(name) p = *(&p);
    #define COMATERMINATED(name) p = *(&p);
    #define PDU(name, id, fields) \
        case id: { struct name *p = &pdu->u.name; fields } break;
    #include "smasi_pdu.def"
    default:
        error(0, "Unknown SMASI_PDU type, internal error while packing.");
    }

    switch (pdu->type) {
    #define NONTERMINATED(name) p = *(&p);
    #define COMATERMINATED(name) \
    if (p->name != NULL) { octstr_append_cstr(os, #name); \
    octstr_append_char(os, '='); \
    octstr_append(os, p->name); \
    octstr_append_char(os, ','); }
    #define PDU(name, id, fields) \
        case id: { struct name *p = &pdu->u.name; fields } break;
    #include "smasi_pdu.def"
    default:
        error(0, "Unknown SMASI_PDU type, internal error while packing.");
    }

    octstr_append_char(os, '\n');
    temp = pdu->needs_hyphen ? octstr_create("!") : octstr_create("");
    octstr_append_cstr(temp, pdu->type_name); 
    octstr_append_char(temp, ':');
    octstr_insert(os, temp, 0);
    octstr_destroy(temp);

    return os;
}

smasi_pdu_read()

Octstr* smasi_pdu_read

(

Connection *

conn

)

Definition at line 299 of file smasi_pdu.c.

References conn_read_line().

Referenced by read_pdu().

{
    Octstr *line;

    line = conn_read_line(conn);    /* read one line */
    return line;
}

smasi_pdu_unpack()

SMASI_PDU* smasi_pdu_unpack

(

Octstr *

data_without_len

)

Definition at line 223 of file smasi_pdu.c.

References decode_type(), octstr_destroy(), octstr_get_cstr, skip_until_after_colon(), smasi_pdu_create(), type, and warning().

Referenced by read_pdu().

{
    SMASI_PDU *pdu;
    char *type_name;
    Octstr *temp;
    long pos;
    unsigned long type = 0;

    /* extract the PDU type identifier */
    temp = decode_type(data_without_len);
    type_name = (temp ? octstr_get_cstr(temp) : "");

    if (strcmp(type_name, "dummy") == 0) type = 0;
    #define NONTERMINATED(name) p = *(&p);
    #define COMATERMINATED(name) p = *(&p);
    #define PDU(name, id, fields) \
    else if (strcmp(type_name, #name) == 0) type = id;
    #include "smasi_pdu.def"
    else warning(0, "unknown SMASI PDU type");

    pdu = smasi_pdu_create(type);
    if (pdu == NULL) return NULL;

    pos = 0;
    skip_until_after_colon(data_without_len, &pos);

    switch (type) {
    #define NONTERMINATED(name) p = *(&p);
    #define COMATERMINATED(name) \
                if (octstr_str_compare(field_name, #name) == 0 && field_value != NULL) \
                    p->name = octstr_duplicate(field_value);
    #define PDU(name, id, fields) \
        case id: { \
            Octstr * field_name = NULL; \
            Octstr * field_value = NULL; \
            struct name *p = &pdu->u.name; \
            while (pos < octstr_len(data_without_len)) { \
                field_name = copy_until_assign(data_without_len, &pos); \
                if (field_name == NULL) break; \
                field_value = copy_until_coma(data_without_len, &pos); \
                if (field_value == NULL) continue; \
                fields \
                octstr_destroy(field_name); \
                octstr_destroy(field_value); \
            } \
        } break;
    #include "smasi_pdu.def"
    default:
        warning(0, "Unknown SMASI_PDU type, internal error while unpacking.");
    }

    octstr_destroy(temp);

    return pdu;
}