src/rohc/d_udp.c

/*
    ROHC Project 2003 at Lulea University of Technology, Sweden.
    Authors: Andreas Vernersson <andver-8@student.luth.se>
             Daniel Pettersson <danpet-7@student.luth.se>
             Erik Soderstrom <soderstrom@yahoo.com>
             Fredrik Lindstrom <frelin-9@student.luth.se>
             Johan Stenmark <johste-8@student.luth.se>
             Martin Juhlin <juhlin@users.sourceforge.net>
             Mikael Larsson <larmik-9@student.luth.se>
             Robert Maxe <robmax-1@student.luth.se>
             
    Copyright (C) 2003 Andreas Vernersson, Daniel Pettersson, 
    Erik Soderström, Fredrik Lindström, Johan Stenmark, 
    Martin Juhlin, Mikael Larsson, Robert Maxe.  

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/    
// The UDP profile in the decompressor

#include "rohc.h"
#include "decomp.h"

#include "d_ip.h"
#include "d_udp.h"
#include "d_util.h"
#include "comp.h"
#include "c_util.h"

//--------------------------------------------------------- Helpfunctions

/* Decode a UO-0 package */
static int udp_decode_uo0(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src,
        unsigned char * dest,
        int payload_size
        );

/* Decode a UO-1 package */
static int udp_decode_uo1(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src2,
        unsigned char * dest,
        int payload_size
        );

/* Decode a UO-2 package */
static int udp_decode_uor2(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src2,
        unsigned char * dest,
        int payload_size
        );

/* Decode a IR-Dyn package */
static int udp_decode_irdyn(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src2,
        unsigned char * dest,
        int payload_size
        );

/* Decode extention 0 */
static int udp_decode_extention0(unsigned char * src, int * sn, int * ip_id);

/* Decode extention 1 */
static int udp_decode_extention1(unsigned char * src, int * sn, int * ip_id);

/* Decode extention 2 */
static int udp_decode_extention2(unsigned char * src, int * sn, int * ip_id, int * ip_id2);

/* Decode extention 3
 *    - Updates random fields in the s_udp_change
 *    - May update the SN value with 8 lower bits. sn_size is then changed
 */
static int udp_decode_extention3(
        unsigned char * src,
        struct sd_rohc * state,
        struct sd_context * sontext,
        int * sn,
        int * sn_size,
        int * ip_id_changed,
        int * id2_updated
        );

// Make a copy of the "active"-struct to the "last"-struct.
static void udp_syncronize(struct s_udp_profile_data *);

// Decode package type
static int udp_package_type(const unsigned char * p);

/* Deceide the extention type */
static int udp_extention_type(const unsigned char * p);

/* Write a uncompressed IP v4 header */
static void udp_write_uncompressed_ip4(
        struct s_udp_change * active1,
        int ip_id,
        unsigned char * dest,
        int payload_size
        );

/* Write a uncompressed UDP header */
static void udp_write_uncompressed_udp(
        struct s_udp_change * active1,
        int checksum,
        unsigned char * dest,
        int payload_size
        );


/* Copy the last-struct to active-struct. */
static void udp_sync_on_failure(struct s_udp_profile_data * pro);

/* Decode inner IP flags and fields. Storage the values
 * in a IP-head struct.
 */
static int udp_decode_inner_header_flags(
        unsigned char * flags,
        unsigned char * fields,
        struct iphdr * ip,
        int * rnd, int * nbo);

/* Decode outer IP flags and fields. Storage the values
 * in a IP-head struct.
 */
static int udp_decode_outer_header_flags(
        unsigned char * flags,
        unsigned char * fields,
        struct iphdr * ip,
        int * rnd, int * nbo,
        int * updated_id);

/* A functions that decode uo0 and uo1 packets
 *
 */
static int udp_do_decode_uo0_and_uo1(
        struct sd_context * context,
        unsigned char * src,
        unsigned char * dest,
        int * payload_size,
        int sn_bits,
        int number_of_sn_bits,
        int * id,
        int number_of_id_bits,
        int * id2,
        int * sn,
        int * calc_crc
        );

/* A functions that decode uor2 packets
 *
 */
static int udp_do_decode_uor2(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * src2,
        unsigned char * dest,
        int * payload_size,
        int * id,
        int * id2,
        int * sn,
        int * sn_size,
        int sn_bits,
        int ext,
        int * calc_crc
        );

/* Try to repair the packet and do an other decompression
 *
 */
static int udp_crc_failure_action(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * src,
        unsigned char * dest,
        int sn_size,
        int * sn_curr1,
        int sn_bits,
        int * payload_size,
        int * id,
        int id_size,
        int * id2,
        int * calc_crc,
        int * real_crc,
        int ext
        );

// update the interpacket time
static void udp_update_packet_time(struct s_udp_profile_data * pro);
//---------------------------------------------------------- Code

// Allocate the proflile data
void * udp_allocate_decode_data(void)
{
        struct s_udp_profile_data * data;
        struct s_udp_change * ch;
        void * p = kmalloc(sizeof(struct s_udp_profile_data) + 4 * sizeof(struct s_udp_change),
                GFP_ATOMIC);

        if (p==NULL) {
                rohc_debugf(0, "udp_allocate_decode_data(): no mem for udp profile data\n");
                return NULL;
        }

        data = (struct s_udp_profile_data *)p;
        ch = (struct s_udp_change *)(data + 1);

        memset(p, 0, sizeof(struct s_udp_profile_data) +
                4 * sizeof(struct s_udp_change) );

        data->last1 = ch; ch++;
        data->active1 = ch; ch++;
        data->last2 = ch; ch++;
        data->active2 = ch;

        return p;
}

// Deallocate the profile data
void udp_free_decode_data(void * p)
{
        kfree(p);
}

// Decode an IR-package and initalize context
int udp_decode_ir(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * src,
        int copy_size,
        int dynamic_present,
        unsigned char * dest
        )
{
        struct s_udp_profile_data * pro = context->data;
        struct s_udp_change * active1 = pro->active1;
        struct s_udp_change * active2 = pro->active2;

        unsigned char * s = src;
        unsigned char * d = dest;

        int size, sn;

        pro->current_packet_time = get_microseconds();

        pro->udp_checksum_present = 0;

        // Ip4 static
        size = d_decode_static_ip4(s, &active1->ip);

        if (size == -1)
                return ROHC_ERROR;

        s += size; copy_size -= size;

        //  multiple IP ?

        if (active1->ip.protocol == PROTOCOL_IP_IN_IP){
                pro->multiple_ip = 1;
                rohc_debugf(1, "Multiple IP header\n");
        }else{
                pro->multiple_ip = 0;
        }

        // If multiple-ip-header
        if(pro->multiple_ip){
                size = d_decode_static_ip4(s, &active2->ip);
                s += size; copy_size -= size;
                if (size == -1)
                        return ROHC_ERROR;
        }

        // Static UDP
        size = d_decode_static_udp(s, &active1->udp);
        s += size; copy_size -= size;

        // Dynamic field
        if (dynamic_present) {
                // Reset the correction-counter
                pro->counter = 0;

                size = d_decode_dynamic_ip4(s, &active1->ip, &active1->rnd, &active1->nbo);
                s += size; copy_size -= (size + 2);

                // If multiple-ip-header
                if(pro->multiple_ip){
                        size = d_decode_dynamic_ip4(s, &active2->ip, &active2->rnd, &active2->nbo);
                        s += size; copy_size -= size;
                }

                size = d_decode_dynamic_udp(s, &active1->udp);
                s += size; copy_size -= size;

                // If checksum == 0 then no checksum availible.
                pro->udp_checksum_present = active1->udp.check;

                // Get and set SN
                sn = ntohs(* ((u16 *)s));
                d_lsb_init(&pro->sn, sn, -1);
                d_ip_id_init(&pro->ip_id1, ntohs(active1->ip.id), sn);
                s += 2;

                // If multiple-ip-header
                if(pro->multiple_ip){
                        d_ip_id_init(&pro->ip_id2, ntohs(active2->ip.id), sn);
                }

                context->state = ROHC_FULL_CONTEXT;

        } else if (context->state != ROHC_FULL_CONTEXT) {
                // in static/no context and not get dynamic part
                return ROHC_ERROR;
        }


        // Header write
        if (pro->multiple_ip){
                udp_write_uncompressed_ip4(active1, ntohs(active1->ip.id), d, copy_size+sizeof(struct iphdr)+sizeof(struct udphdr));
                d += sizeof(struct iphdr);
                udp_write_uncompressed_ip4(active2, ntohs(active2->ip.id), d, copy_size + sizeof(struct udphdr));

        }else{
                udp_write_uncompressed_ip4(active1, ntohs(active1->ip.id), d, copy_size + sizeof(struct udphdr));
        }
        d += sizeof(struct iphdr);

        udp_write_uncompressed_udp(active1, ntohs(active1->udp.check), d, copy_size);

        d += sizeof(struct udphdr);

        // Syncronizerar strukterna
        udp_syncronize(pro);

        // Update the inter-packet variable
        udp_update_packet_time(pro);

        // Copy payload
        if (copy_size == 0) return ROHC_OK_NO_DATA;

        memcpy(d, s, copy_size);

        // Statistics:
        context->header_compressed_size += s - src;
        c_add_wlsb(context->header_16_compressed, 0,0, s - src);
        context->header_uncompressed_size += (pro->multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr);
        c_add_wlsb(context->header_16_uncompressed, 0, 0, (pro->multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr));

        return copy_size + (pro->multiple_ip + 1) * sizeof(struct iphdr) + sizeof(struct udphdr);
}

// Calculate the size of data in an IR-package.
// return : size or zero.
int udp_detect_ir_size(unsigned char * first_byte, int second_byte_add)
{
        int ret = 14;
        int d = GET_BIT_0(first_byte);
        if (d) ret += 7 + 2;
        if (first_byte[second_byte_add + 2] != 0x40) return 0;
        if (first_byte[second_byte_add + 3] == PROTOCOL_IP_IN_IP){
                ret += 10;
                if (d) ret += 5;
                if (first_byte[second_byte_add + 12] != 0x40) return 0;
        }
        return ret;
}

// Calculate the size of data in an IR-package.
// return : size or zero.
int udp_detect_ir_dyn_size(unsigned char * first_byte, struct sd_context *c)
{
        struct s_udp_profile_data * pro = c->data;
        if (pro->active1->ip.protocol == PROTOCOL_IP_IN_IP) return 14;
        return 9;
}

// Decode all package except IR-package.
int udp_decode(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * src,
        int size,
        int second_byte,
        unsigned char * dest
        )
{
        struct s_udp_profile_data * pro = context->data;
        // ---- DEBUG ----
        int i; unsigned char * p;

        struct s_udp_change * active1 = pro->active1;
        struct s_udp_change * active2 = pro->active2;
        struct s_udp_change * last1 = pro->last1;
        struct s_udp_change * last2 = pro->last2;

        pro->current_packet_time = get_microseconds();

        rohc_debugf(2,"(udp_decode) nbo = %d rnd = %d\n", last1->nbo, last1->rnd);
        if (pro->multiple_ip){
                rohc_debugf(2,"Multiple ip-header\n");
                rohc_debugf(2,"(udp_decode) nbo2 = %d rnd2 = %d\n", last2->nbo, last2->rnd);
        }
        if (memcmp(active1, last1, sizeof(struct s_udp_change)) != 0) {
                rohc_debugf(0,"(udp_decode) last1 and active1 struct is not synchronized\n");
                p = (unsigned char *)last1;
                for (i = 0; i < sizeof(struct s_udp_change); i++) {
                        printk("%2x ", p[i]);
                }
                printk("\nvs\n");
                p = (unsigned char *)active1;
                for (i = 0; i < sizeof(struct s_udp_change); i++) {
                        printk("%2x ", p[i]);
                }
                printk("\n");
        }
        if (memcmp(active2, last2, sizeof(struct s_udp_change)) != 0) {
                rohc_debugf(0,"(udp_decode) last2 and active2 struct is not synchronized\n");
                p = (unsigned char *)last2;
                for (i = 0; i < sizeof(struct s_udp_change); i++) {
                        printk("%2x ", p[i]);
                }
                printk("\nvs\n");
                p = (unsigned char *)active2;
                for (i = 0; i < sizeof(struct s_udp_change); i++) {
                        printk("%2x ", p[i]);
                }
                printk("\n");
        }
        // ---- DEBUG ----

        if (context->state == ROHC_NO_CONTEXT) return ROHC_ERROR;

        switch(udp_package_type(src)) {
        case PACKAGE_UO_0:
                pro->package_type = PACKAGE_UO_0;
                if (context->state  == ROHC_STATIC_CONTEXT) return ROHC_ERROR;
                return udp_decode_uo0(state, context, src, src + second_byte,
                        dest, size - second_byte);
        case PACKAGE_UO_1:
                pro->package_type = PACKAGE_UO_1;
                if (context->state  == ROHC_STATIC_CONTEXT) return ROHC_ERROR;
                return udp_decode_uo1(state, context, src, src + second_byte,
                        dest, size - second_byte);
        case PACKAGE_UOR_2:
                pro->package_type = PACKAGE_UOR_2;
                return udp_decode_uor2(state, context, src, src + second_byte,
                        dest, size - second_byte);
        case PACKAGE_IR_DYN:
                return udp_decode_irdyn(state, context, src, src + second_byte,
                        dest, size - second_byte);
        default:
                rohc_debugf(0,"(udp) Unknown package.\n");
                return ROHC_ERROR;
        }
}

/* Get the reference SN value
 *
 */
static int udp_get_sn(struct sd_context * context)
{
        struct s_udp_profile_data * pro = context->data;
        return d_get_lsb_ref(&pro->sn);
}

static struct s_profile d_udp_profile = {2,"1.0", "UDP / Decompressor",
        udp_decode,
        udp_decode_ir,
        udp_allocate_decode_data,
        udp_free_decode_data,
        udp_detect_ir_size,
        udp_detect_ir_dyn_size,
        udp_get_sn
        };

struct s_profile * udp_profile_create()
{
        return &d_udp_profile;
}


// --------------------------------------------------------- Package type decoder


/* Decode a UO-0 package */
static int udp_decode_uo0(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src,
        unsigned char * dest,
        int payload_size
        )
{
        unsigned char *saved_src = src;
        struct s_udp_profile_data * pro = context->data;

        int multiple_ip = pro->multiple_ip;
        int id, id2=-1, sn, sn_bits = GET_BIT_3_6(head), sn_size = 4;
        int calc_crc, real_crc = GET_BIT_0_2(head);
        int extra_fields = 0, org_payload_size = payload_size;

        // Do the decoding / find ip-id
        extra_fields = udp_do_decode_uo0_and_uo1(context, src, dest, &payload_size, sn_bits, sn_size , &id, 0 , &id2, &sn, &calc_crc);

        if (calc_crc != real_crc) {
                rohc_debugf(0,"UO-0: CRC failure (calc) %x vs %x (real)\n",
                        calc_crc, real_crc);

                payload_size = org_payload_size;
                udp_crc_failure_action(0, context, src, dest, sn_size, &sn, sn_bits, &payload_size, &id, 0, &id2, &calc_crc, &real_crc, 0);
                return ROHC_ERROR_CRC;
        }

        if(pro->counter){
                if(pro->counter==1){

                        rohc_debugf(2,"Throw away packet, just 2 packages right so far\n");

                        pro->counter++;
                        // Update the inter-packet variable

                        udp_update_packet_time(pro);

                        udp_syncronize(pro);

                        d_lsb_sync_ref(&pro->sn);
                        d_lsb_update(&pro->sn, sn);
                        d_ip_id_update(&pro->ip_id1, id, sn);
                        if (pro->multiple_ip)
                                d_ip_id_update(&pro->ip_id2, id2, sn);

                        return ROHC_ERROR_CRC;

                }else if(pro->counter==2){
                        pro->counter = 0;
                        rohc_debugf(2,"The rapair is deemed successful\n");
                }else{
                        rohc_debugf(2,"XX Should not happen XX\n");
                }
        }

        src += extra_fields;

        // Update the inter-packet variable
        udp_update_packet_time(pro);

        udp_syncronize(pro);

        // Update lsb and id structs on CRC-success
        d_lsb_sync_ref(&pro->sn);
        d_lsb_update(&pro->sn, sn);
        d_ip_id_update(&pro->ip_id1, id, sn);
        if (pro->multiple_ip){
                d_ip_id_update(&pro->ip_id2, id2, sn);
                dest += sizeof(struct iphdr);
        }

        // Payload
        dest += sizeof(struct iphdr) + sizeof(struct udphdr);

        memcpy(dest, src, payload_size);

        // Statistics:
        context->header_compressed_size += src - saved_src;
        c_add_wlsb(context->header_16_compressed, 0,0, src - saved_src);
        context->header_uncompressed_size += (multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr);
        c_add_wlsb(context->header_16_uncompressed, 0, 0, (multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr));

        return payload_size + (multiple_ip + 1) * sizeof(struct iphdr)+ sizeof(struct udphdr);
}


/* Decode a UO-1 package */
static int udp_decode_uo1(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src,
        unsigned char * dest,
        int payload_size
        )
{
        unsigned char *saved_src = src;
        struct s_udp_profile_data * pro = context->data;

        int id = GET_BIT_0_5(head), id2=-1;
        int sn, sn_bits = GET_BIT_3_7(src), sn_size = 5;
        int org_payload_size, extra_fields=0;
        int calc_crc, real_crc = GET_BIT_0_2(src);
        src++; payload_size--;
        org_payload_size = payload_size;

        // Decode the id and sn
        extra_fields = udp_do_decode_uo0_and_uo1(context, src, dest, &payload_size, sn_bits, sn_size , &id, 6 , &id2, &sn, &calc_crc);

        if (calc_crc != real_crc) {
                rohc_debugf(0,"UO-1: CRC failure (calc) %x vs %x (real)\n",
                        calc_crc, real_crc);
                payload_size = org_payload_size;
                udp_crc_failure_action(0, context, src, dest, sn_size, &sn, sn_bits, &payload_size, &id, 6, &id2, &calc_crc, &real_crc, 0);
                return ROHC_ERROR_CRC;
        }

        if(pro->counter){
                if(pro->counter==1){

                        rohc_debugf(2,"Throw away packet, just 2 packages right so far\n");

                        pro->counter++;
                        // Update the inter-packet variable

                        udp_update_packet_time(pro);

                        udp_syncronize(pro);

                        d_lsb_sync_ref(&pro->sn);
                        d_lsb_update(&pro->sn, sn);
                        d_ip_id_update(&pro->ip_id1, id, sn);
                        if (pro->multiple_ip)
                                d_ip_id_update(&pro->ip_id2, id2, sn);


                        return ROHC_ERROR_CRC;

                }else if(pro->counter==2){
                        pro->counter = 0;
                        rohc_debugf(2,"The rapair is deemed successful\n");
                }else{
                        rohc_debugf(2,"XX Should not happen XX\n");
                }
        }

        src += extra_fields;

        // Update the inter-packet variable
        udp_update_packet_time(pro);

        udp_syncronize(pro);

        d_lsb_sync_ref(&pro->sn);
        d_lsb_update(&pro->sn, sn);
        d_ip_id_update(&pro->ip_id1, id, sn);

        if (pro->multiple_ip){
                d_ip_id_update(&pro->ip_id2, id2, sn);
                dest += sizeof(struct iphdr);
        }

        // Payload
        dest += sizeof(struct iphdr)+ sizeof(struct udphdr);
        memcpy(dest, src, payload_size);

        // Statistics:
        context->header_compressed_size += src - saved_src;
        c_add_wlsb(context->header_16_compressed, 0,0, src - saved_src);
        context->header_uncompressed_size += (pro->multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr);
        c_add_wlsb(context->header_16_uncompressed, 0, 0, (pro->multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr));

        return payload_size + (pro->multiple_ip + 1)  * sizeof(struct iphdr) + sizeof(struct udphdr);
}


/* Decode a UO-2 package */
static int udp_decode_uor2(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src,
        unsigned char * dest,
        int payload_size
        )
{
        unsigned char *saved_src = src;
        struct s_udp_profile_data * pro = context->data;

        int org_payload_size = payload_size, extra_fields = 0;
        int sn_size = 0;
        int id = 0, id2 = 0, multiple_id = pro->multiple_ip;
        int calc_crc = 0;

        int sn_bits = GET_BIT_0_4(head) , sn = 0;
        int real_crc = GET_BIT_0_6(src);
        int ext = GET_BIT_7(src);
        src++;

        // Decode
        extra_fields = udp_do_decode_uor2(state, context, src, dest, &payload_size, &id, &id2, &sn, &sn_size, sn_bits, ext, &calc_crc);


        if (calc_crc != real_crc) {

                rohc_debugf(0,"UOR-2: CRC failure (calc) %x vs %x (real)\n",
                calc_crc, real_crc);

                payload_size = org_payload_size;
                id =0 ; id2 = 0; calc_crc = 0;
                udp_crc_failure_action(state, context, src, dest, sn_size, &sn, sn_bits, &payload_size, &id, 0, &id2, &calc_crc, &real_crc, ext);
                return ROHC_ERROR_CRC;
        }

        if(pro->counter){
                if(pro->counter==1){

                        rohc_debugf(2,"Throw away packet, just 2 packages right so far\n");

                        pro->counter++;
                        // Update the inter-packet variable

                        udp_update_packet_time(pro);

                        udp_syncronize(pro);

                        d_lsb_sync_ref(&pro->sn);
                        d_lsb_update(&pro->sn, sn);
                        d_ip_id_update(&pro->ip_id1, id, sn);
                        if (pro->multiple_ip)
                                d_ip_id_update(&pro->ip_id2, id2, sn);

                        return ROHC_ERROR_CRC;

                }else if(pro->counter==2){
                        pro->counter = 0;
                        rohc_debugf(2,"The rapair is deemed successful\n");
                }else{
                        rohc_debugf(2,"XX Should not happen XX\n");
                }
        }

        context->state  = ROHC_FULL_CONTEXT;
        src += extra_fields;

        //if crc success
        udp_syncronize(pro);

        // Update the inter-packet variable
        udp_update_packet_time(pro);

        // Update
        d_lsb_sync_ref(&pro->sn);
        d_lsb_update(&pro->sn, sn);
        d_ip_id_update(&pro->ip_id1, id, sn);
        if (pro->multiple_ip){
                d_ip_id_update(&pro->ip_id2, id2, sn);
                dest += sizeof(struct iphdr);
        }
        // Payload
        dest += sizeof(struct iphdr)+ sizeof(struct udphdr);
        memcpy(dest, src, payload_size);

        // Statistics:
        context->header_compressed_size += src - saved_src;
        c_add_wlsb(context->header_16_compressed, 0,0, src - saved_src);
        context->header_uncompressed_size += (multiple_id+1)*sizeof(struct iphdr) + sizeof(struct udphdr);
        c_add_wlsb(context->header_16_uncompressed, 0, 0, (multiple_id+1)*sizeof(struct iphdr) + sizeof(struct udphdr));

        return payload_size + (multiple_id +1) *sizeof(struct iphdr)+ sizeof(struct udphdr);
}

/* Decode a IR-Dyn package */
static int udp_decode_irdyn(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * head,
        unsigned char * src2,
        unsigned char * dest,
        int payload_size
        )
{
        unsigned char *saved_src = src2;
        struct s_udp_profile_data * pro = context->data;
        //struct s_udp_change * last1 = pro->last1;
        struct s_udp_change * active1 = pro->active1;
        struct s_udp_change * active2 = pro->active2;
        int sn = 0, size = d_decode_dynamic_ip4(src2, &active1->ip, &active1->rnd, &active1->nbo);
        src2 += size; payload_size -= size + 2;

        if( pro->multiple_ip ){
                size = d_decode_dynamic_ip4(src2, &active2->ip, &active2->rnd, &active2->nbo);
                src2 += size; payload_size -= size;
        }

        size = d_decode_dynamic_udp(src2, &active1->udp);
        src2 += size; payload_size -= size;

        sn = ntohs(* ((u16 *)src2));
        d_lsb_init(&pro->sn, sn, -1);
        d_ip_id_init(&pro->ip_id1,ntohs(active1->ip.id), sn);

        udp_syncronize(pro);

        // set the checksum flag
        pro->udp_checksum_present = active1->udp.check;

        // reset the correction-counter
        pro->counter = 0;
        src2 += 2;

        if (pro->multiple_ip){
                d_ip_id_init(&pro->ip_id2,ntohs(active2->ip.id), sn);
                udp_write_uncompressed_ip4(active1, ntohs(active1->ip.id), dest, payload_size+sizeof(struct iphdr)+sizeof(struct udphdr));
                dest += sizeof(struct iphdr);
                udp_write_uncompressed_ip4(active2, ntohs(active2->ip.id), dest, payload_size + sizeof(struct udphdr));
        }else{
                udp_write_uncompressed_ip4(active1, ntohs(active1->ip.id), dest, payload_size+ sizeof(struct udphdr));
        }

        context->state = ROHC_FULL_CONTEXT;

        dest += sizeof(struct iphdr);
        udp_write_uncompressed_udp(active1, ntohs(active1->udp.check), dest, payload_size);
        dest += sizeof(struct udphdr);

        // Update the inter-packet variable
        udp_update_packet_time(pro);

        memcpy(dest, src2, payload_size);

        // Statistics:
        context->header_compressed_size += src2 - saved_src;
        c_add_wlsb(context->header_16_compressed, 0,0, src2 - saved_src);
        context->header_uncompressed_size += (pro->multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr);
        c_add_wlsb(context->header_16_uncompressed, 0, 0, (pro->multiple_ip+1)*sizeof(struct iphdr) + sizeof(struct udphdr));

        return payload_size + ((pro->multiple_ip)+1) * sizeof(struct iphdr) + sizeof(struct udphdr);
}

/* decode uo0 and uo1 */
static int udp_do_decode_uo0_and_uo1(
        struct sd_context * context,
        unsigned char * src,
        unsigned char * dest,
        int * payload_size,
        int sn_bits,
        int number_of_sn_bits,
        int * id,
        int number_of_id_bits,
        int * id2,
        int * sn,
        int * calc_crc
        )
{
        struct s_udp_profile_data * pro = context->data;
        struct s_udp_change * active1 = pro->active1;
        struct s_udp_change * active2 = pro->active2;
        int field_counter = 0;
        int checksum = 0;

        *sn = d_lsb_decode(&pro->sn, sn_bits, number_of_sn_bits);

        if (active1->rnd) {
                *id = ntohs(*((u16 *)src));
                src += 2; field_counter +=2; *payload_size -= 2;

        } else {
                if(number_of_id_bits)
                        *id = d_ip_id_decode(&pro->ip_id1, *id, number_of_id_bits, *sn);
                else
                        *id = d_ip_id_decode(&pro->ip_id1, 0, 0, *sn);
        }

        // If multiple ip header
        if (pro->multiple_ip){

                if (active2->rnd) {
                        *id2 = ntohs(*((u16 *)src));

                        src +=2; field_counter +=2; *payload_size -= 2;
                } else {
                        *id2 = d_ip_id_decode(&pro->ip_id2, 0, 0, *sn);
                }
        }
        // If checksum present
        if(pro->udp_checksum_present){
                rohc_debugf(2,"(decompress) upd checksum present\n");
                checksum = ntohs(*((u16 *)src));
                src +=2; field_counter +=2; *payload_size -= 2;
        }
        rohc_debugf(2,"(decomp) udp checksum %x payload size = %d\n",checksum,*payload_size);
        // Header write
        if (pro->multiple_ip){
                udp_write_uncompressed_ip4(active1, *id, dest, *payload_size+sizeof(struct iphdr)+sizeof(struct udphdr));
                udp_write_uncompressed_ip4(active2, *id2, dest+sizeof(struct iphdr),*payload_size+sizeof(struct udphdr));

        }else{
                udp_write_uncompressed_ip4(active1, *id, dest, *payload_size+sizeof(struct udphdr));
        }

        // udp-header write
        udp_write_uncompressed_ip4(active1, *id, dest, *payload_size+sizeof(struct udphdr));
        udp_write_uncompressed_udp(active1, checksum, dest+(pro->multiple_ip + 1) * sizeof(struct iphdr), *payload_size);

        // Check CRC
        *calc_crc = crc_calculate(CRC_TYPE_3, dest, (pro->multiple_ip + 1) * sizeof(struct iphdr) +sizeof(struct udphdr));

        return field_counter;
}

/* decode uor2 */
static int udp_do_decode_uor2(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * src2,
        unsigned char * dest,
        int * payload_size,
        int * id,
        int * id2,
        int * sn,
        int * sn_size,
        int sn_bits,
        int ext,
        int * calc_crc
        )
{
        struct s_udp_profile_data * pro = context->data;
        struct s_udp_change * active1 = pro->active1;
        struct s_udp_change * active2 = pro->active2;
        int  id2_updated = 0, size = 0;
        int  no_ip_id_update = 0;
        int field_counter = 0;
        int checksum = 0;

        *sn = sn_bits;

        if (ext) {
                // decode extention
                switch(udp_extention_type(src2)) {
                case PACKAGE_EXT_0:
                        size = udp_decode_extention0(src2, sn, id);
                        // ip_id_bits == 3
                        *sn_size = 8;
                        *sn = d_lsb_decode(&pro->sn, *sn, *sn_size );
                        *id = d_ip_id_decode(&pro->ip_id1, *id, 3, *sn);
                        *id2 = d_ip_id_decode(&pro->ip_id2, 0, 0, *sn);
                        break;

                case PACKAGE_EXT_1:
                        size = udp_decode_extention1(src2, sn, id);
                        // ip_id bits == 11
                        *sn_size = 8;
                        *sn = d_lsb_decode(&pro->sn, *sn, *sn_size );
                        *id = d_ip_id_decode(&pro->ip_id1, *id, 11, *sn);
                        *id2 = d_ip_id_decode(&pro->ip_id2, 0, 0, *sn);
                        break;

                case PACKAGE_EXT_2:
                        size = udp_decode_extention2(src2, sn, id, id2);
                        // ip_id bits == 8
                        *sn_size = 8;
                        *sn = d_lsb_decode(&pro->sn, *sn, *sn_size );
                        *id2 = d_ip_id_decode(&pro->ip_id1, *id, 8, *sn);
                        *id = d_ip_id_decode(&pro->ip_id2, *id2, 11, *sn);
                        break;

                case PACKAGE_EXT_3:
                        *sn_size = 5;
                        size = udp_decode_extention3(src2, state, context, sn,
                                sn_size, &no_ip_id_update, &id2_updated);

                        rohc_debugf(2,"(udp_decode) after ext 3 : nbo = %d rnd = %d\n", active1->nbo, active1->rnd);

                        *sn = d_lsb_decode(&pro->sn, *sn, *sn_size );

                        if (no_ip_id_update) {
                                *id = ntohs(active1->ip.id);
                        } else {
                                *id = d_ip_id_decode(&pro->ip_id1, 0, 0, *sn);
                        }
                        if( pro->multiple_ip ){
                                rohc_debugf(2,"(udp_decode) after ext 3 : nbo2 = %d rnd2 = %d\n", active2->nbo, active2->rnd);

                                if (id2_updated){
                                        *id2 = ntohs(active2->ip.id);
                                }else
                                        *id2 = d_ip_id_decode(&pro->ip_id2, 0, 0, *sn);
                        }
                        break;
                }


                src2 += size;
                field_counter +=size;
                *payload_size -= size + 1;
        } else {
                // No extention
                *sn_size = 5;
                *sn = d_lsb_decode(&pro->sn, *sn , *sn_size);

                *id = d_ip_id_decode(&pro->ip_id1, 0, 0, *sn);
                if( pro->multiple_ip)
                        *id2 = d_ip_id_decode(&pro->ip_id1, 0, 0, *sn);
                *payload_size -= 1;
        }


        // Random IP ID ?
        if (active1->rnd) {
                *id = ntohs(*((u16 *)src2));
                src2 +=2; field_counter +=2; *payload_size -= 2;
        }

        // Multiple ip-header

        if (( pro->multiple_ip )&&( active2->rnd )){
                *id2 = ntohs(*((u16 *)src2));
                src2 +=2; field_counter +=2; *payload_size -= 2;
        }

        // If checksum present
        if(pro->udp_checksum_present){
                checksum = ntohs(*((u16 *)src2));
                src2 +=2; field_counter +=2; *payload_size -= 2;
        }

        // Header write
        if (pro->multiple_ip){
                udp_write_uncompressed_ip4(active1, *id, dest, *payload_size+sizeof(struct iphdr)+sizeof(struct udphdr));
                udp_write_uncompressed_ip4(active2, *id2, dest+sizeof(struct iphdr),*payload_size+sizeof(struct udphdr));
        }else{
                udp_write_uncompressed_ip4(active1, *id, dest, *payload_size+sizeof(struct udphdr));
        }

        // udp-header write
        udp_write_uncompressed_udp(active1, checksum, dest+(pro->multiple_ip + 1) * sizeof(struct iphdr), *payload_size);

        // CRC-check
        *calc_crc = crc_calculate(CRC_TYPE_7, dest, (pro->multiple_ip + 1) * sizeof(struct iphdr) + sizeof(struct udphdr));

        return field_counter;
}


// ---------------------------------------------------------

/* Decode extention 0.
 *    - SN value is expanded with 3 lower bits
 *    - IP-ID is replaced with 3 bits
 */
static int udp_decode_extention0(unsigned char * src, int * sn, int * ip_id)
{
        *sn = *sn << 3 | GET_BIT_3_5(src);
        *ip_id = GET_BIT_0_2(src);
        return 1;
}

/* Decode extention 1
 *    - SN value is expanded with 3 lower bits
 *    - IP-ID is replaced with 11 bits
 */
static int udp_decode_extention1(unsigned char * src, int * sn, int * ip_id)
{
        *sn = *sn << 3 | GET_BIT_3_5(src);
        *ip_id = GET_BIT_0_2(src);

        src++;
        *ip_id = *ip_id << 8 | *src;

        return 2;
}

/* Decode extention 2
 *    - SN value is expanded with 3 lower bits
 *    - IP-ID is replaced with 8 bits
 */
static int udp_decode_extention2(unsigned char * src, int * sn, int * ip_id, int * ip_id2)
{

        *sn = *sn << 3 | GET_BIT_3_5(src);
        *ip_id2 = GET_BIT_0_2(src);
        src++;

        *ip_id2 = *ip_id2 << 8 | *src;
        src++;

        *ip_id = *src;
        return 3;
}

/* Decode extention 3
 *    - Updates random fields in the s_udp_change
 *    - May update the SN value with 8 lower bits. sn_size is then changed
 */
static int udp_decode_extention3(
        unsigned char * src,
        struct sd_rohc * state,
        struct sd_context * context,
        int * sn,
        int * sn_size,
        int * ip_id_changed,
        int * update_id2
        )
{
        struct s_iponly_profile_data * pro = context->data;
        struct s_iponly_change * active1 = pro->active1;
        struct s_iponly_change * active2 = pro->active2;
        unsigned char * org = src;
        unsigned char * fields  = src + 1;
        int S = GET_BIT_5(src);
        int mode = GET_BIT_3_4(src);
        int I = GET_BIT_2(src);
        int ip = GET_BIT_1(src);
        int ip2 = GET_BIT_0(src);
        int size;

        src++;

        if (ip) fields++;
        if (ip2) fields++;

        if (S) {
                *sn = (*sn << 8) + *fields;
                *sn_size += 8;
                fields++;
        }

        if (ip) {
                if(pro->multiple_ip){
                        size = decode_inner_header_flags(src, fields, &active2->ip,
                        &active2->rnd, &active2->nbo);
                }else
                        size = udp_decode_inner_header_flags(src, fields, &active1->ip,
                        &active1->rnd, &active1->nbo);
                fields += size;
        }
        if (I) {
                if(pro->multiple_ip){
                        active2->ip.id = *((u16 *)fields);
                        fields += 2;
                        *update_id2 = 1;
                }else{
                        active1->ip.id = *((u16 *)fields);
                        fields += 2;
                        *ip_id_changed = 1;
                }
        }
        if (ip2) {
                size = udp_decode_outer_header_flags(src, fields, &active1->ip,
                        &active1->rnd, &active1->nbo, ip_id_changed );
                fields += size;

        }

        if(mode != context->mode){
                rohc_debugf(2,"mode is not equal on decomp and comp.\n");
                d_change_mode_feedback(state, context);
        }
        return fields - org;
}

// --------------------------------------------------------- Local utils functions

// Deceide what package type
static int udp_package_type(const unsigned char * p)
{
        if (!GET_BIT_7(p)) {
                return PACKAGE_UO_0;
        } else if (!GET_BIT_6(p)) {
                return PACKAGE_UO_1;
        } else if (GET_BIT_5_7(p) == 6) {
                return PACKAGE_UOR_2;
        } else if (*p == 0xf8) {
                return PACKAGE_IR_DYN;
        } else if ( (*p & 0xfe) == 0xfc) {
                return PACKAGE_IR;
        } else {
                return PACKAGE_UNKNOWN;
        }
}

// Copy the active-structs to last-structs.
void udp_syncronize(struct s_udp_profile_data * pro)
{
        memcpy(pro->last1, pro->active1, sizeof(struct s_udp_change));
        memcpy(pro->last2, pro->active2, sizeof(struct s_udp_change));
}

// Copy the last-structs to the active-structs.
void udp_sync_on_failure(struct s_udp_profile_data * pro)
{
        memcpy(pro->active1, pro->last1, sizeof(struct s_udp_change));
        memcpy(pro->active2, pro->last2, sizeof(struct s_udp_change));
}


// Deceide the extention type
static int udp_extention_type(const unsigned char * p)
{
        return GET_BIT_6_7(p);
}

/* Decode inner IP flags and fields. Storage the values
 * in a IP-head struct.
 */
static int udp_decode_inner_header_flags(
        unsigned char * flags,
        unsigned char * fields,
        struct iphdr * ip,
        int * rnd, int * nbo)
{
        int size = 0;
        if (GET_BIT_7(flags)) {
                ip->tos = *fields;
                fields++; size++;
        }
        if (GET_BIT_6(flags)) {
                ip->ttl = *fields;
                fields++; size++;
        }
        if (GET_BIT_5(flags)) {
                ip->frag_off = htons(IP_DF);
        } else {
                ip->frag_off = 0;
        }
        if (GET_BIT_4(flags)) {
                ip->protocol = *fields;
                fields++; size++;
        }
        if (GET_BIT_3(flags)) {
                // TODO, list compression
                rohc_debugf(0,"Listcompression is not supported\n");
        }
        *nbo = GET_BIT_2(flags);
        *rnd = GET_BIT_1(flags);
        return size;
}

/* Decode outer IP flags and fields. Storage the values
 * in a IP-head struct.
 */
static int udp_decode_outer_header_flags(
        unsigned char * flags,
        unsigned char * fields,
        struct iphdr * ip,
        int * rnd, int * nbo,
        int * updated_id)
{
        int size = 0;
        if (GET_BIT_7(flags)) {
                ip->tos = *fields;
                fields++; size++;
        }
        if (GET_BIT_6(flags)) {
                ip->ttl = *fields;
                fields++; size++;
        }
        if (GET_BIT_5(flags)) {
                ip->frag_off = htons(IP_DF);
        } else {
                ip->frag_off = 0;
        }
        if (GET_BIT_4(flags)) {
                ip->protocol = *fields;
                fields++; size++;
        }
        if (GET_BIT_3(flags)) {
                // TODO, list compression
                rohc_debugf(0,"Listcompression is not supported\n");
        }
        *nbo = GET_BIT_2(flags);
        *rnd = GET_BIT_1(flags);

        if (GET_BIT_0(flags)) {
                ip->id = *((u16 *)fields);
                fields += 2; size += 2;
                *updated_id = 1;
        }
        return size;
}

/* Write a uncompressed IP v4 header */
static void udp_write_uncompressed_ip4(
        struct s_udp_change * active,
        int ip_id,
        unsigned char * dest,
        int payload_size
        )
{
        struct iphdr * ip = (struct iphdr *)dest;

        // --- static & some changing
        memcpy(dest, &active->ip, sizeof(struct iphdr));

        // --- ip-id
        ip->id = htons(ip_id);
        if (!active->nbo) ip->id = __swab16(ip->id);

        //--- Static-known fields
        ip->ihl = 5;

        //--- Interfered fields
        ip->tot_len = htons(payload_size + (ip->ihl * 4));
        ip->check = 0;
        ip->check = ip_fast_csum(dest, ip->ihl);
}

/* Write a uncompressed UDP header */
static void udp_write_uncompressed_udp(
        struct s_udp_change * active,
        int checksum,
        unsigned char * dest,
        int payload_size
        )
{
        struct udphdr * udp = (struct udphdr *)dest;

        // --- static & some changing
        memcpy(dest, &active->udp, sizeof(struct udphdr));

        // --- udp-checksum
        udp->check = htons(checksum);
        if (!active->nbo) udp->check = __swab16(udp->check);

        //--- Interfered fields
        udp->len = htons(payload_size + sizeof(struct udphdr));

}

/*  This function try to repair the SN in one of two different ways
 *
 */
static int udp_crc_failure_action(
        struct sd_rohc * state,
        struct sd_context * context,
        unsigned char * src,
        unsigned char * dest,
        int sn_size,
        int * sn,
        int sn_bits,
        int * payload_size,
        int * id,
        int id_size,
        int * id2,
        int * calc_crc,
        int * real_crc,
        int ext
        )
{
        struct s_udp_profile_data * pro = context->data;

        int sn_ref = 0, intervall = 0;
        int sn_curr2 = 0, sn_curr1 = 0;
        int sn_update = 0;

        udp_sync_on_failure(pro);

        if(CRC_ACTION){
                rohc_debugf(0,"Try to repair the CRC\n");

                if(pro->last_packet_time) //if last packettime == 0 then IR was just sent and ...
                        intervall = pro->current_packet_time - pro->last_packet_time;


                if(intervall > ((1 << sn_size)*(pro->inter_arrival_time))){
                        rohc_debugf(0,"ROHC: repair with the assumption:  SN LSB wraparound\n");
                        rohc_debugf(2,"inter_arrival_time = %d and current intervall is = %d\n", pro->inter_arrival_time, intervall);
                        rohc_debugf(2,"add %d to SN\n", 1 << sn_size);

                        // Try and update the SN
                        sn_ref = d_get_lsb_ref(&pro->sn);
                        sn_ref += (1 << sn_size);
                        d_lsb_sync_ref(&pro->sn);
                        d_lsb_update(&pro->sn, sn_ref);
                        *sn = d_lsb_decode(&pro->sn, sn_bits, sn_size );

                        pro->counter = 0;

                }else{
                        // try with the old sn_ref value

                        rohc_debugf(0,"ROHC: repair with the assumption: incorrect SN-updates\n");

                        // save current referece value
                        sn_curr1 = d_get_lsb_ref(&pro->sn);
                        // test with old reference value
                        d_lsb_update(&pro->sn, d_get_lsb_old_ref(&pro->sn));

                        sn_curr2 = d_lsb_decode(&pro->sn, sn_bits, sn_size );

                        if( sn_curr2 == *sn)
                                return ROHC_ERROR_CRC;
                        //*sn = sn_curr2;
                        d_lsb_update(&pro->sn, sn_curr2);
                        sn_update = 1;
                        pro->counter = 0;
                }

                // Try a new decompression with another SN
                switch (pro->package_type){
                case PACKAGE_UO_0:
                //fall through
                case PACKAGE_UO_1:
                        udp_do_decode_uo0_and_uo1(context, src, dest, payload_size, sn_bits, sn_size , id, id_size, id2, sn, calc_crc);
                        break;
                case PACKAGE_UOR_2:
                        *sn = sn_bits;
                        udp_do_decode_uor2(state, context, src, dest, payload_size, id, id2, sn, &sn_size, sn_bits, ext, calc_crc);
                        break;
                default:
                        rohc_debugf(0,"(Ip-only) A existing packet?\n");
                        d_lsb_update(&pro->sn, sn_curr1);
                        return ROHC_ERROR_CRC;
                }

                if (*calc_crc != *real_crc){
                        rohc_debugf(0,"ROHC: CRC failure also on the second attempt (calc) %x vs %x (real)\n",*calc_crc, *real_crc);
                        pro->counter = 0;
                        if(sn_update)
                                d_lsb_update(&pro->sn, sn_curr1); //reference curr1 should be used
                        udp_sync_on_failure(pro);
                        return ROHC_ERROR_CRC;

                }//CRC-pass


                rohc_debugf(2,"Update and sync with the new SN then throw away the packet\n");
                pro->counter++;
                udp_update_packet_time(pro);

                udp_syncronize(pro);
                if(!sn_update){
                        d_lsb_sync_ref(&pro->sn);
                        d_lsb_update(&pro->sn, *sn);
                }else
                        d_lsb_update(&pro->sn, sn_curr2);

                d_ip_id_update(&pro->ip_id1, *id, *sn);
                if (pro->multiple_ip)
                        d_ip_id_update(&pro->ip_id2, *id2, *sn);

                return ROHC_ERROR_CRC;

        }else{
                return ROHC_ERROR_CRC;
        }
}

/* Update the inter-packet time, a sort of averange over the last inter-packet times */
static void udp_update_packet_time(struct s_udp_profile_data * pro)
{
        int last_time = pro->last_packet_time;
        int delta = 0;
        rohc_debugf(2,"current time = %d and last time = %d\n", pro->current_packet_time, last_time);

        if (last_time)
                delta = pro->current_packet_time - last_time;
        pro->last_packet_time = pro->current_packet_time;
        if (pro->inter_arrival_time){
                pro->inter_arrival_time = (pro->inter_arrival_time >> WEIGHT_OLD) + (delta >> WEIGHT_NEW);

        } else
                pro->inter_arrival_time = delta;

        rohc_debugf(2,"inter_arrival_time = %d and current arrival delta is = %d\n", pro->inter_arrival_time, delta);
}
Revision:	1.2
Committed:	Sun Feb 8 07:24:25 2004 UTC (20 years, 4 months ago) by pcg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-1_9, rel-1_8, VPE_1_6, rel-1_7, VPE-1_6_1
Changes since 1.1:	+12 -13 lines
Log Message:	* empty log message *