freebsd-dev/sys/i4b/layer3/i4b_q932fac.c

542 lines
13 KiB
C

/*-
* Copyright (c) 1997, 2002 Hellmuth Michaelis. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
/*---------------------------------------------------------------------------
*
* i4b_q932fac.c - Q932 facility handling
* --------------------------------------
* last edit-date: [Sat Mar 9 19:37:29 2002]
*
*---------------------------------------------------------------------------*/
#include <sys/cdefs.h>
__FBSDID("$FreeBSD$");
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/mbuf.h>
#include <machine/i4b_debug.h>
#include <machine/i4b_ioctl.h>
#include <i4b/include/i4b_l3l4.h>
#include <i4b/layer3/i4b_l3.h>
#include <i4b/layer3/i4b_q932fac.h>
static int do_component(int length);
static void next_state(int class, int form, int code, int val);
static int byte_len;
static unsigned char *byte_buf;
static int state;
static int units;
static int operation_value;
/*---------------------------------------------------------------------------*
* decode Q.931/Q.932 facility info element
*---------------------------------------------------------------------------*/
int
i4b_aoc(unsigned char *buf, call_desc_t *cd)
{
int len;
cd->units_type = CHARGE_INVALID;
cd->units = -1;
buf++; /* length */
len = *buf;
buf++; /* protocol profile */
switch(*buf & 0x1f)
{
case FAC_PROTO_ROP:
break;
case FAC_PROTO_CMIP:
NDBGL3(L3_A_MSG, "CMIP Protocol (Q.941), UNSUPPORTED");
return(-1);
break;
case FAC_PROTO_ACSE:
NDBGL3(L3_A_MSG, "ACSE Protocol (X.217/X.227), UNSUPPORTED!");
return(-1);
break;
default:
NDBGL3(L3_A_ERR, "Unknown Protocol, UNSUPPORTED!");
return(-1);
break;
}
NDBGL3(L3_A_MSG, "Remote Operations Protocol");
/* next byte */
buf++;
len--;
/* initialize variables for do_component */
byte_len = 0;
byte_buf = buf;
state = ST_EXP_COMP_TYP;
/* decode facility */
do_component(len);
switch(operation_value)
{
case FAC_OPVAL_AOC_D_CUR:
cd->units_type = CHARGE_AOCD;
cd->units = 0;
return(0);
break;
case FAC_OPVAL_AOC_D_UNIT:
cd->units_type = CHARGE_AOCD;
cd->units = units;
return(0);
break;
case FAC_OPVAL_AOC_E_CUR:
cd->units_type = CHARGE_AOCE;
cd->units = 0;
return(0);
break;
case FAC_OPVAL_AOC_E_UNIT:
cd->units_type = CHARGE_AOCE;
cd->units = units;
return(0);
break;
default:
cd->units_type = CHARGE_INVALID;
cd->units = -1;
return(-1);
break;
}
return(-1);
}
/*---------------------------------------------------------------------------*
* handle a component recursively
*---------------------------------------------------------------------------*/
static int
do_component(int length)
{
int comp_tag_class; /* component tag class */
int comp_tag_form; /* component form: constructor or primitive */
int comp_tag_code; /* component code depending on class */
int comp_length = 0; /* component length */
again:
/*----------------------------------------*/
/* first component element: component tag */
/*----------------------------------------*/
/* tag class bits */
comp_tag_class = (*byte_buf & 0xc0) >> 6;
switch(comp_tag_class)
{
case FAC_TAGCLASS_UNI:
break;
case FAC_TAGCLASS_APW:
break;
case FAC_TAGCLASS_COS:
break;
case FAC_TAGCLASS_PRU:
break;
}
/* tag form bit */
comp_tag_form = (*byte_buf & 0x20) > 5;
/* tag code bits */
comp_tag_code = *byte_buf & 0x1f;
if(comp_tag_code == 0x1f)
{
comp_tag_code = 0;
byte_buf++;
byte_len++;
while(*byte_buf & 0x80)
{
comp_tag_code += (*byte_buf & 0x7f);
byte_buf++;
byte_len++;
}
comp_tag_code += (*byte_buf & 0x7f);
}
else
{
comp_tag_code = (*byte_buf & 0x1f);
}
byte_buf++;
byte_len++;
/*--------------------------------------------*/
/* second component element: component length */
/*--------------------------------------------*/
comp_length = 0;
if(*byte_buf & 0x80)
{
int i = *byte_buf & 0x7f;
byte_len += i;
for(;i > 0;i++)
{
byte_buf++;
comp_length += (*byte_buf * (i*256));
}
}
else
{
comp_length = *byte_buf & 0x7f;
}
next_state(comp_tag_class, comp_tag_form, comp_tag_code, -1);
byte_len++;
byte_buf++;
/*---------------------------------------------*/
/* third component element: component contents */
/*---------------------------------------------*/
if(comp_tag_form) /* == constructor */
{
do_component(comp_length);
}
else
{
int val = 0;
if(comp_tag_class == FAC_TAGCLASS_UNI)
{
switch(comp_tag_code)
{
case FAC_CODEUNI_INT:
case FAC_CODEUNI_ENUM:
case FAC_CODEUNI_BOOL:
if(comp_length)
{
int i;
for(i = comp_length-1; i >= 0; i--)
{
val += (*byte_buf + (i*255));
byte_buf++;
byte_len++;
}
}
break;
default:
if(comp_length)
{
int i;
for(i = comp_length-1; i >= 0; i--)
{
byte_buf++;
byte_len++;
}
}
break;
}
}
else /* comp_tag_class != FAC_TAGCLASS_UNI */
{
if(comp_length)
{
int i;
for(i = comp_length-1; i >= 0; i--)
{
val += (*byte_buf + (i*255));
byte_buf++;
byte_len++;
}
}
}
next_state(comp_tag_class, comp_tag_form, comp_tag_code, val);
}
if(byte_len < length)
goto again;
return(byte_len);
}
/*---------------------------------------------------------------------------*
* invoke component
*---------------------------------------------------------------------------*/
static void
F_1_1(int val)
{
if(val == -1)
{
state = ST_EXP_INV_ID;
}
}
/*---------------------------------------------------------------------------*
* return result
*---------------------------------------------------------------------------*/
static void
F_1_2(int val)
{
if(val == -1)
state = ST_EXP_NIX;
}
/*---------------------------------------------------------------------------*
* return error
*---------------------------------------------------------------------------*/
static void
F_1_3(int val)
{
if(val == -1)
state = ST_EXP_NIX;
}
/*---------------------------------------------------------------------------*
* reject
*---------------------------------------------------------------------------*/
static void
F_1_4(int val)
{
if(val == -1)
state = ST_EXP_NIX;
}
/*---------------------------------------------------------------------------*
* invoke id
*---------------------------------------------------------------------------*/
static void
F_2(int val)
{
if(val != -1)
{
NDBGL3(L3_A_MSG, "Invoke ID = %d", val);
state = ST_EXP_OP_VAL;
}
}
/*---------------------------------------------------------------------------*
* operation value
*---------------------------------------------------------------------------*/
static void
F_3(int val)
{
if(val != -1)
{
NDBGL3(L3_A_MSG, "Operation Value = %d", val);
operation_value = val;
if((val == FAC_OPVAL_AOC_D_UNIT) || (val == FAC_OPVAL_AOC_E_UNIT))
{
units = 0;
state = ST_EXP_INFO;
}
else
{
state = ST_EXP_NIX;
}
}
}
/*---------------------------------------------------------------------------*
* specific charging units
*---------------------------------------------------------------------------*/
static void
F_4(int val)
{
if(val == -1)
state = ST_EXP_RUL;
}
/*---------------------------------------------------------------------------*
* free of charge
*---------------------------------------------------------------------------*/
static void
F_4_1(int val)
{
if(val == -1)
{
NDBGL3(L3_A_MSG, "Free of Charge");
/* units = 0; XXXX */
state = ST_EXP_NIX;
}
}
/*---------------------------------------------------------------------------*
* charge not available
*---------------------------------------------------------------------------*/
static void
F_4_2(int val)
{
if(val == -1)
{
NDBGL3(L3_A_MSG, "Charge not available");
/* units = -1; XXXXXX ??? */
state = ST_EXP_NIX;
}
}
/*---------------------------------------------------------------------------*
* recorded units list
*---------------------------------------------------------------------------*/
static void
F_5(int val)
{
if(val == -1)
state = ST_EXP_RU;
}
/*---------------------------------------------------------------------------*
* recorded units
*---------------------------------------------------------------------------*/
static void
F_6(int val)
{
if(val == -1)
state = ST_EXP_RNOU;
}
/*---------------------------------------------------------------------------*
* number of units
*---------------------------------------------------------------------------*/
static void
F_7(int val)
{
if(val != -1)
{
NDBGL3(L3_A_MSG, "Number of Units = %d", val);
units = val;
state = ST_EXP_TOCI;
}
}
/*---------------------------------------------------------------------------*
* subtotal/total
*---------------------------------------------------------------------------*/
static void
F_8(int val)
{
if(val != -1)
{
NDBGL3(L3_A_MSG, "Subtotal/Total = %d", val);
/* type_of_charge = val; */
state = ST_EXP_DBID;
}
}
/*---------------------------------------------------------------------------*
* billing_id
*---------------------------------------------------------------------------*/
static void
F_9(int val)
{
if(val != -1)
{
NDBGL3(L3_A_MSG, "Billing ID = %d", val);
/* billing_id = val; */
state = ST_EXP_NIX;
}
}
/*---------------------------------------------------------------------------*
*
*---------------------------------------------------------------------------*/
static struct statetab {
int currstate; /* input: current state we are in */
int form; /* input: current tag form */
int class; /* input: current tag class */
int code; /* input: current tag code */
void (*func)(int); /* output: func to exec */
} statetab[] = {
/* current state tag form tag class tag code function */
/* --------------------- ---------------------- ---------------------- ---------------------- ----------------*/
{ST_EXP_COMP_TYP, FAC_TAGFORM_CON, FAC_TAGCLASS_COS, 1, F_1_1 },
{ST_EXP_COMP_TYP, FAC_TAGFORM_CON, FAC_TAGCLASS_COS, 2, F_1_2 },
{ST_EXP_COMP_TYP, FAC_TAGFORM_CON, FAC_TAGCLASS_COS, 3, F_1_3 },
{ST_EXP_COMP_TYP, FAC_TAGFORM_CON, FAC_TAGCLASS_COS, 4, F_1_4 },
{ST_EXP_INV_ID, FAC_TAGFORM_PRI, FAC_TAGCLASS_UNI, FAC_CODEUNI_INT, F_2 },
{ST_EXP_OP_VAL, FAC_TAGFORM_PRI, FAC_TAGCLASS_UNI, FAC_CODEUNI_INT, F_3 },
{ST_EXP_INFO, FAC_TAGFORM_CON, FAC_TAGCLASS_UNI, FAC_CODEUNI_SEQ, F_4 },
{ST_EXP_INFO, FAC_TAGFORM_PRI, FAC_TAGCLASS_UNI, FAC_CODEUNI_NULL, F_4_1 },
{ST_EXP_INFO, FAC_TAGFORM_PRI, FAC_TAGCLASS_COS, 1, F_4_2 },
{ST_EXP_RUL, FAC_TAGFORM_CON, FAC_TAGCLASS_COS, 1, F_5 },
{ST_EXP_RU, FAC_TAGFORM_CON, FAC_TAGCLASS_UNI, FAC_CODEUNI_SEQ, F_6 },
{ST_EXP_RNOU, FAC_TAGFORM_PRI, FAC_TAGCLASS_UNI, FAC_CODEUNI_INT, F_7 },
{ST_EXP_TOCI, FAC_TAGFORM_PRI, FAC_TAGCLASS_COS, 2, F_8 },
{ST_EXP_DBID, FAC_TAGFORM_PRI, FAC_TAGCLASS_COS, 3, F_9 },
{-1, -1, -1, -1, NULL }
};
/*---------------------------------------------------------------------------*
* state decode for do_component
*---------------------------------------------------------------------------*/
static void
next_state(int class, int form, int code, int val)
{
int i;
for(i=0; ; i++)
{
if((statetab[i].currstate > state) ||
(statetab[i].currstate == -1))
{
break;
}
if((statetab[i].currstate == state) &&
(statetab[i].form == form) &&
(statetab[i].class == class) &&
(statetab[i].code == code))
{
(*statetab[i].func)(val);
break;
}
}
}