277 lines
9.8 KiB
C
277 lines
9.8 KiB
C
/************************************************************************/
|
|
/* SISCO SOFTWARE MODULE HEADER *****************************************/
|
|
/************************************************************************/
|
|
/* (c) Copyright Systems Integration Specialists Company, Inc., */
|
|
/* 1986 - 2001, All Rights Reserved. */
|
|
/* */
|
|
/* PROPRIETARY AND CONFIDENTIAL */
|
|
/* */
|
|
/* MODULE NAME : rq_read.c */
|
|
/* PRODUCT(S) : MMSEASE, MMSEASE-LITE */
|
|
/* */
|
|
/* MODULE DESCRIPTION : */
|
|
/* This module contains the requester portion of variable read. */
|
|
/* It decodes the variable read response (confirm) & encodes */
|
|
/* the variable read request. */
|
|
/* */
|
|
/* GLOBAL FUNCTIONS DEFINED IN THIS MODULE : */
|
|
/* */
|
|
/* MODIFICATION LOG : */
|
|
/* Date Who Rev Comments */
|
|
/* -------- --- ------ ------------------------------------------- */
|
|
/* 03/11/04 GLB 08 Remove "thisFileName" */
|
|
/* 12/20/01 JRB 07 Converted to use ASN1R (re-entrant ASN1) */
|
|
/* 05/29/01 RKR 06 Corrected max_acc_rslt = _mmsdec_msglen / 2 */
|
|
/* 01/21/00 MDE 05 Corrected buffer size calculations for */
|
|
/* 'm_cl_max_read_acc_rslt' != 0 */
|
|
/* 09/13/99 MDE 04 Added SD_CONST modifiers */
|
|
/* 03/23/99 MDE 03 Changes to decode buffer allocation scheme */
|
|
/* 06/15/98 MDE 02 Changes to allow compile under C++ */
|
|
/* 06/27/97 MDE 01 Fixed max_acc_rslt bug */
|
|
/* 04/02/97 DTL 7.00 MMSEASE 7.0 release. See MODL70.DOC for */
|
|
/* history. */
|
|
/************************************************************************/
|
|
|
|
#include "glbtypes.h"
|
|
#include "sysincs.h"
|
|
|
|
#include "mmsdefs.h"
|
|
#include "mms_pvar.h"
|
|
#include "asn1defs.h"
|
|
|
|
/************************************************************************/
|
|
/* variables global to the DECODE portion : */
|
|
|
|
static READ_RESP_INFO *rsp_info;
|
|
static ACCESS_RESULT *ar_ptr;
|
|
|
|
static ST_INT max_vars;
|
|
static ST_INT max_acc_rslt;
|
|
|
|
/************************************************************************/
|
|
/* variables global to the ENCODE portion : NONE */
|
|
|
|
static ST_VOID read_acc_rslt_cstr (ASN1_DEC_CTXT *aCtx);
|
|
static ST_VOID read_acc_rslt_done (ASN1_DEC_CTXT *aCtx);
|
|
static ST_VOID read_acc_rslt_cstr_done (ASN1_DEC_CTXT *aCtx);
|
|
static ST_VOID read_va_spec_cstr_done (ASN1_DEC_CTXT *aCtx);
|
|
static ST_VOID read_va_spec_done (ASN1_DEC_CTXT *aCtx);
|
|
static ST_VOID read_va_spec_cstr (ASN1_DEC_CTXT *aCtx);
|
|
|
|
|
|
/************************************************************************/
|
|
/************************************************************************/
|
|
/* mms_read_rsp */
|
|
/* This function is called from MMSDEC when the opcode for this */
|
|
/* operation is decoded. Setup state machine function pointers, etc. */
|
|
/************************************************************************/
|
|
|
|
ST_VOID mms_read_rsp (ASN1_DEC_CTXT *aCtx)
|
|
{
|
|
ST_INT rsp_size;
|
|
ST_INT rsp_size2;
|
|
|
|
MLOG_CDEC0 ("Variable Read Response");
|
|
|
|
#if defined(FIXED_DECBUF)
|
|
max_acc_rslt = m_cl_max_read_acc_rslt;
|
|
max_vars = m_cl_max_read_var_spec;
|
|
rsp_size = mmsl_dec_info_size;
|
|
#else
|
|
max_vars = _mmsdec_msglen / 4;
|
|
max_acc_rslt = _mmsdec_msglen / 2;
|
|
if (m_cl_max_read_acc_rslt && (max_acc_rslt > m_cl_max_read_acc_rslt))
|
|
max_acc_rslt = m_cl_max_read_acc_rslt;
|
|
|
|
if (m_cl_read_spec_in_result)
|
|
{
|
|
if (m_cl_max_read_var_spec && (max_vars > m_cl_max_read_var_spec))
|
|
max_vars = m_cl_max_read_var_spec;
|
|
rsp_size2 = sizeof(READ_RESP_INFO) + (sizeof(VARIABLE_LIST) * max_vars);
|
|
}
|
|
else
|
|
rsp_size2 = 0;
|
|
|
|
rsp_size = sizeof(READ_RESP_INFO) + (sizeof(ACCESS_RESULT) * max_acc_rslt);
|
|
if (rsp_size < rsp_size2)
|
|
rsp_size = rsp_size2;
|
|
#endif
|
|
|
|
/* get storage for request information */
|
|
rsp_info = (READ_RESP_INFO *) _m_get_dec_buf (aCtx, rsp_size);
|
|
rsp_info->va_spec_pres = SD_FALSE; /* set default value */
|
|
|
|
ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 0, read_va_spec_cstr);
|
|
ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, read_acc_rslt_cstr);
|
|
}
|
|
|
|
/************************************************************************/
|
|
/* read_va_spec_cstr */
|
|
/* decoding variable read request: variable access constructor was */
|
|
/* encountered. */
|
|
/************************************************************************/
|
|
|
|
static ST_VOID read_va_spec_cstr (ASN1_DEC_CTXT *aCtx)
|
|
{
|
|
MLOG_CDEC0 ("read_va_spec_cstr");
|
|
|
|
rsp_info->va_spec_pres = SD_TRUE; /* set va spec present */
|
|
|
|
_ms_get_va_spec (aCtx, &rsp_info->va_spec, max_vars, read_va_spec_done);
|
|
}
|
|
|
|
/************************************************************************/
|
|
/* read_va_spec_done */
|
|
/* decoding variable read request: variable access specification */
|
|
/* has been decoded. */
|
|
/************************************************************************/
|
|
|
|
static ST_VOID read_va_spec_done (ASN1_DEC_CTXT *aCtx)
|
|
{
|
|
MLOG_CDEC0 ("read_va_spec_done");
|
|
|
|
aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = read_va_spec_cstr_done;
|
|
}
|
|
|
|
/************************************************************************/
|
|
/* read_va_spec_cstr_done */
|
|
/* decoding variable read request: variable access constructor done */
|
|
/* was encountered. */
|
|
/************************************************************************/
|
|
|
|
static ST_VOID read_va_spec_cstr_done (ASN1_DEC_CTXT *aCtx)
|
|
{
|
|
ASN1R_TAG_ADD (aCtx, CTX | CONSTR, 1, read_acc_rslt_cstr);
|
|
}
|
|
|
|
/************************************************************************/
|
|
/* read_acc_rslt_cstr */
|
|
/* decoding variable read request: access result constructor was */
|
|
/* encountered. */
|
|
/************************************************************************/
|
|
|
|
static ST_VOID read_acc_rslt_cstr (ASN1_DEC_CTXT *aCtx)
|
|
{
|
|
VARIABLE_LIST *temp;
|
|
|
|
MLOG_CDEC0 ("read_acc_rslt_cstr");
|
|
|
|
temp = (VARIABLE_LIST *) (rsp_info + 1);
|
|
temp += rsp_info->va_spec.num_of_variables;
|
|
|
|
rsp_info->num_of_acc_result = 0;
|
|
rsp_info->acc_rslt_list = (ACCESS_RESULT *) temp;
|
|
ar_ptr = rsp_info->acc_rslt_list;
|
|
|
|
_ms_get_va_access_rslt (aCtx, ar_ptr, read_acc_rslt_done);
|
|
aCtx->asn1r_c_done_fun [aCtx->asn1r_msg_level] = read_acc_rslt_cstr_done;
|
|
}
|
|
|
|
/************************************************************************/
|
|
/* read_acc_rslt_done */
|
|
/* decoding variable read request: access result has been decoded. */
|
|
/************************************************************************/
|
|
|
|
static ST_VOID read_acc_rslt_done (ASN1_DEC_CTXT *aCtx)
|
|
{
|
|
MLOG_CDEC0 ("read_acc_rslt_done");
|
|
|
|
rsp_info->num_of_acc_result++;
|
|
if ((rsp_info->num_of_acc_result + 1) <= max_acc_rslt)
|
|
{
|
|
ar_ptr++;
|
|
_ms_get_va_access_rslt (aCtx, ar_ptr, read_acc_rslt_done);
|
|
}
|
|
}
|
|
|
|
/************************************************************************/
|
|
/* read_acc_rslt_cstr_done */
|
|
/* decoding variable read request: access result constructor done */
|
|
/* was encountered. */
|
|
/************************************************************************/
|
|
|
|
static ST_VOID read_acc_rslt_cstr_done (ASN1_DEC_CTXT *aCtx)
|
|
{
|
|
ST_INT rsp_size;
|
|
VARIABLE_LIST *temp;
|
|
|
|
MLOG_CDEC0 ("read_acc_rslt_cstr_done");
|
|
|
|
/* find actual size for request info */
|
|
rsp_size = sizeof (READ_RESP_INFO)
|
|
+ (sizeof (VARIABLE_LIST)*rsp_info->va_spec.num_of_variables)
|
|
+ (sizeof (ACCESS_RESULT)*rsp_info->num_of_acc_result);
|
|
|
|
/* give back unused storage */
|
|
_mms_dec_info = (*m_realloc_os_fun) (_mms_dec_info,rsp_size);
|
|
rsp_info = (READ_RESP_INFO *) _mms_dec_info;
|
|
|
|
/* some C run time library mem mgmt. functions will always give back a */
|
|
/* new pointer when reallocating smaller. In the case of read_resp_info*/
|
|
/* we have to update the acc_rslt_list ptr to point to this new mem loc */
|
|
|
|
temp = (VARIABLE_LIST *) (rsp_info + 1);
|
|
temp += rsp_info->va_spec.num_of_variables;
|
|
rsp_info->acc_rslt_list = (ACCESS_RESULT *) temp;
|
|
|
|
_ms_set_cs_check (aCtx); /* check for Companion Standard info */
|
|
}
|
|
|
|
|
|
#ifndef MMS_LITE
|
|
/************************************************************************/
|
|
/************************************************************************/
|
|
/* mp_read */
|
|
/* This function is called from either the application or the virtual */
|
|
/* machine to ENCODE & send the variable read request. */
|
|
/************************************************************************/
|
|
|
|
MMSREQ_PEND *mp_read (ST_INT chan, READ_REQ_INFO *info_ptr)
|
|
{
|
|
return (_mms_req_send (MMSOP_READ,
|
|
M_CAST_MK_FUN (_ms_mk_read_req),
|
|
chan,(ST_CHAR *)info_ptr));
|
|
}
|
|
|
|
#else
|
|
/************************************************************************/
|
|
/************************************************************************/
|
|
/* mpl_read */
|
|
/* This function is called from either the application or the virtual */
|
|
/* machine to ENCODE the variable read request. */
|
|
/************************************************************************/
|
|
|
|
|
|
ST_RET mpl_read (READ_REQ_INFO *info_ptr)
|
|
{
|
|
return (_mms_req_fin (MMSOP_READ,
|
|
M_CAST_MK_FUN (_ms_mk_read_req),
|
|
(ST_CHAR *) info_ptr));
|
|
}
|
|
#endif
|
|
|
|
|
|
|
|
/************************************************************************/
|
|
/************************************************************************/
|
|
/* _ms_mk_read_req */
|
|
/* construct a variable read request. */
|
|
/************************************************************************/
|
|
|
|
ST_VOID _ms_mk_read_req (ASN1_ENC_CTXT *aCtx, READ_REQ_INFO *info)
|
|
{
|
|
|
|
asn1r_strt_constr (aCtx); /* start context tag 1 cstr */
|
|
_ms_wr_va_spec (aCtx, &info->va_spec);
|
|
asn1r_fin_constr (aCtx, 1, CTX, DEF); /* finish context tag 1 cstr */
|
|
|
|
if (info->spec_in_result)
|
|
{ /* not the default (false) */
|
|
asn1r_wr_bool (aCtx, info->spec_in_result); /* write specification in rslt */
|
|
asn1r_fin_prim (aCtx, 0, CTX); /* context tag 0 primitive */
|
|
}
|
|
|
|
/* write the context specific explicit tag for this opcode. */
|
|
asn1r_fin_constr (aCtx, MMSOP_READ,CTX,DEF); /* tag = opcode, ctx */
|
|
}
|